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PART I . 

PROBLEM DESCRIPTION 




Problem Description for SAGE Program 
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1. 0 SCOPE 

1. 1 PROGRAM CAPABILITIES 

Given the swath table files, the segment set for one country and 
cloud cover data, this program determines how many times and under 
what conditions each segment is accessed by satellites as defined on the 
swath table. The program writes a record for each segment on the seg- 
ment reference data file which contains the pertinent a.cquisition data. 

On option, a utility function can be performed to generate the weather 
data file from a NASA supplied tape. Tliis option can be exercised prior 
to the segment processing or as a stand-alone utility. 

i. 2 METHOD OF PROGRAM DEVELOPMENT 

This program will be developed in FORTRAN and use of machine 
dependent routines will be kept to a minimum. The direct access file 
processing is the only known problem in this area. Modular programming 
techniques will be. used throughout to make program development, modifica- 
tions and debugging easier. 

1. 3 OPERATIONAL ASSUMPTIONS 

• A maximum of 426 days can be specified in NODAY--the number 
of days in the run. 

• It is assumed that only 1 year of data, starting January 1st, is 
to be generated on the weather data file' (366 days). 

• The use of the weather file will be such that the look-up date will 
be determined modulo 1 year, i. e. , given a run day of 400, then 
the look-up day will be 400 - 366 + 1 = 35. 

• Only 1 case is run at a time. 

• Only 1 country may be run at a time. 

• The segment reference data file and tlie weather file are re- 
generated each time the program is run,. There is no update 
capability. 

• A maximum of 150 acquisitions for any one segment is allowed. 
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2.0 INPUT 

There are four files and 1 card set required for input to the program 
if the segment reference data file is to be generated. If just the weather 
file is to be generated, then only the header card and NASA weather tape 
is required. If both modes of operation are exercised, the NASA weather 
tape would replace the standard weather file as an input file. 

Mode 1 Inputs - Generate weather file only. 

1. Header card with option set to 1. 

2. NASA weather tape. 

Mode 2 Inputs - Generate segment reference data file only. 

1.. Card set as defined below with option set to 2. 

2. Swath table file. 

3. Segment ID file. 

4. Swath reference file. 

5. Weather file. 

Mode 3 Inputs - Generate both files. 

The same as for Mode 2 except Item b is replaced with the NASA 
weather tape and the option flag is set to 3. 

2. 1 CARDS 

2. 1. 1 List of Data Quantities 

See Input Data Description sheet on Pages 4 and 5. 

2. 1. 2 Card Formats 

"SAGE" is punched in card columns 75-78 of all cards. A sequence 
number is punched in card columns 79-80. 

See Data Card Formats sheet on Page 6 for details. 

2. 1. 3 Deck Set Up 


1. Header card - sequence 01 

2. Data card - sequence 02 


List of Data Qaantities 


Input Daica Description 


Symbol 


Dimension 


18 




2 

1 

1 

1 

1 

i 


Nominal 

Value 

Range 

Units 

Blanks 

- 

- 

0 

0-9999 

, 

- 

0 

0-9999 

- 

0 

0-9999 

- 

0 


- 

426 

1-426 . 

Days 

0 

0-2 

- 


0-2 

- 

F 

T or F 

- 

0 

0-100 

Kilom. 

1.0 

- 

- 

1600 

1-16000 

- 

" 




Description 


72 character case header which prints out 
at the top of every page. 

4 digit case no. to identify the printed 
output and the segment reference data 
file. 

Case number identifying the swath table 
and reference files. 

Case number identifying the segment ID 
file. 

ISTIME(l) - (Year - 1900) 

ISTIME(2) - month no. 

ISTIME(3) - day no. 

Run start date 

No. of days to process in the run. 

Program run option. 

0 - run sage only 

1 - run weather file generation utility only 

2 - run both the utility and SAGE 

List of vehicle numbers to process in 
this run. 

"i: 

p> 

Flag to indicate whether access report 'g 
is to be produced. T - yes, F - no. ^ 

Swath decrement 

Random no, seed used to obtain daily 
wea.Uier data. Must be odd integer. . 

No. of grid points to be written on the 
weather file (debug only) 
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Input Data Description (cont'd) 


List of Data Quantities (cont'd) 


Dimension 


Nominal 

Value 


Range 


Units 


Description 







i 


Card Formats 


Data Card Formats 


Header Card 


The header information is entered in C. C. 1-72; "SAGE” is entered 
in C. C. 75-78, and 01 is entered in C. C. 79-80. 


13 17 


w 

to 


to 

1 

O 

to 

< 

u 

pH 

o 

<; 

Q 

2 

H 

to 

o 

W 

to 

u 




h-l 

l-H 

14 

11 

13 

14 

14 


ISTIME 

YR 

MON 

DAY 


2 3 25 26 32 44 49 53 

g ^ o 13 3 Pi ^ 

^ ^ Q S ^ w 3 

\ I I I ^ I 

2I1- LI F6. 2 F12.0 15 14 13 


75 79 


SAGE 02 


A4 12 


1 
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2. 1. 4 Rules for Entering Data on Cards 
2. 1. 4. 1 General 


1, Integers rnust be entered right justified. 

2. F format numbers must have the decimal point present, i. e. , 
F6. 2 - XXX. XX. 


3. The card sequence numbers in C. C. 79-80 must be present 
in all data cards. 


2. 1. 4. 2 Rules for Specific Fields 

e ICSESW must teatch the case number on the swath reference 
and swath table files. 

• ICSESG must match the case number, on tlie segment ID file. 

• The start time in ISTIlvIEb-must not be less than the earliest 
vehicle start date on the swath table file. (Note, if only 1 of 
the vehicles is to be processed, then ISTIME will be checked 
against that vehicle's start time only. If ISTIME is not input, 
it will be assumed that the earliest vehicle start date is the run 
start date. 


e NDAYS must be s. 1 and ^426.' 

• LVEH must have entries of 0, 1 or 2. 


2. 2 FILES • 

When running the SAGE option alone, the following five files must 
be present: 

1. Swath Table - SWATH 

See Section 2.4 of the Users Manual. 

2. Swath Reference - SV7ATHR 

See Section 2.4 of the Users Manual. 


1 
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3. Segment ID File - SEGID 

See Section 2.4 of the Users Manual for a descrijition. 

4. Weather Data File - WEATHR 

Required as input if lOPT = 0 and produced as output if lOPT i 0. 

See Section 2. 4 df the Users Manual for a description. 

5. NASA Weather Tape - WEATAP 

This tape is required input if lOPT = 0. 

See Section 2. 4 of the Users Manual for a description. 
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Segment ID File 

This file is generated from NASA data cards for use in the 
SAGE program. This file is only valid for DAPTS and IOC. 

Access Methods Sequential with fixed length records 

Status: Permanent during life of IOC 

Sort: Country, then region, then zone, then strata, then 
substrata, ' then segment, 4800 records 

Media: Disk 

Record Formats: 

Header Record: 

Name (2) - 8 bytes, file name - 'SEGMENT' 

ICASE - case no. 20 bytes filler 
Detail Record: 

. Country ID - 4 bytes, 4 alpha characters 

Region ID - 2 bytes, 3 digit no. , set to 1 

Zone ID - 2 bytes, 3 digit no. , 1 to 400 

Strata ID - 2 bytes, 4 digit no. , 1 to 1600 

Substrata ID - 2 bytes, 1 to 4800 

Segment ID - 2 bytes, 4 digit no. , 1 to 4800 

Training Seg Ind - 2 bytes, 0 - normal, 1 - training 

Liatitude - 4 bytes, in radians, +77'/ 2 

Longitude - 4 bytes, in radians, 0 - 277 
Grid No. - 2 bytes, 1-16,000 
Crop Proportion Table 

Crop Cat % mixed crop - 4 bytes, %, 0 to 100 

Crop Cat % winter wheat - 4 bytes, %, 0 to IOC- 

Set to a value or 0 for DAPTS. 
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Crop Cat % spring wheat - 4 bytes, %, 0 to 100 

Set to value or 0 for DAPTS 
(opposite from Crop Cat % 
winter wheat). 

Last detail record has ’ZZZZ' in the first 4 bytes 
followed by O’s in the remainder of the record. 

Total: 32 bytes, 13 words 

Block Factor: 20 

File Size: 153, 800 bytes, 62, 400 words 

Usage: Used by SAGE to get lat/lon and crop data to write 
on segment reference data file. 

4. Weather Data File 

This file contains cloud cover % for 366 days and 16000 grid 
points. This file is generated from a NASA supplied weather 
tape. 

Access Method: Direct with fixed length records 

Status.: Semi-permanent. Can be regenerated for each use of 
SAGE or kept as a permanent file for IOC studies. 

Sort: Grid point, then day 

To get to a particular record N which represents 5 grid 
points: 

N = 1 + + 1 (if remainder) 

5 

+ 0 (if no remainder) 

Media: Disk 
Record Formats: 

Header Record: .. 

Name (2) - 8 bytes, file name = 'WEATHER ' 
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NMAX - No. of days in a record, 2 bytes, 1 to 366 

Total: 12 bytes or 4 words 

171 byte filler 

Detail Record - For 1 grid - all days 

Each day entry is a value 0 to 8 respre- 

. senting 8th' s of 100%, 8-4 bit entries are 

stored right justified in a word; for 366 

366'I'4 

days it would require — g =183 bytes or 

46 words. 

Blocking Factor: 5 


File Size: 2, 928, 000 bytes, 736, 000 words 


Usage: This file is used by SAGE to obtain the cloud cover data. 

For FOC on the PDF, the file will be stored in terms of 
' 16 bit words. There will be three entries per PDP word. 

This will result in a 25% increase in space requirements. 
When runn3.ng the weather file generation utility alone, the NASA 
weather tape must be present for input. 


NASA Weather. Tape Format 


There is one file on tape written in binary mode (odd parity) with 
sequential I/O routines. The tape is 7 track written at 800 BPI density. 
There will be 1600 physical records on tape and each record will be 
500 words long. There will be 10 logical index point records per 
physical record. Each logical record will be 50 words long and will 
contain BCD information in the following forrnat: 


INDEX ^~GRII>-^ 
(15, 2X, 13, 2X,I3, 


N E 

or or ■ 

LAT S ILONGI W YEARS 
3X, 312, A1,IX,I3,2I2,A1, ■ 12, 


% FREQ 
12 (13, 812), 


MEAN % 
1213 ) 


If both the utility and SAGE are run, then the NASA weather tape 
would replace the weather data file as input. The weather data file would 
be computed prior to SAGE execution. 
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3.0 PROCESSING 
3. 1 OVERVIEW 


The total program is divided into 2 phases. The phase which would 
be executed first (if selected) would be the weather data file creator. 

SAGE would be executed second if both phases are selected. The NASA 
weiather tape must be supplied by NASA in the format shown in Section 2. 2. 
In order to generate a weather data file, most of the input required by 
SAGE will-come from the input data files. The segment location file will 
control SAGE since each segment identified on the file will be processed 
for acquisitions. In Section 3. 2 a program block diagram illustrates the 
logic flow and the order in which the basic functions are performed. In 
Section 3. 3 an ordered list of the procedures and equations is given. 


3.2 PROGRAM FLOW 


See Page for a block diagram giving an overview of program 
functions to be performed, and their order. Segment no. is the key 
control item for SAGE. 

3. 3 PROCEDURES AND EQUATIONS 

3. 3. 1 Creation of the Weather Data File 

1. Create Weather Data File 


1. A record for 1 grid point is read from the NASA weather 

tape to get grid no - GRID and f. - IFREQ (frequency data 

J 

set). 


2 . 



The following computations are performed on f. set for 

each month Jan through December, 
k 

Form set F, = L f. where 0 ^ k ^ 8 

k j=o } 


such that Fq = f^, F^ = f^ + f etc. 


Test Fo for 0: if it is then Step 4 is not done. Instead, a 
I o 

constant normal cumulative distribution probability table 

for the current month will be used for F_-F„. A message 

U o 

will print if Fg is not within 99 to 101. 
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4. Form set Yt^ = — . where 0 ^ k ^ 8 and K = k + 1 

x\ i? Q 



5. The following computations are performed for each day 
of each month. 


Form Q- random number using RAND as the seed. 
Determine which pair of Y^^'s 0 ^ K ^ 9 lies between. 
If n lies between and , then PC - cloud cover 

in eighths is set to K. In this manner the PC value for 
NMAX days of the year (assume 366 day max) is com- 
puted. 


6. The PC table for IGRID is then written on the weather 


data file as one logical record. 

3.3.2 SAGE 

1. Input Procedures 

• Read in card data and check fields for errors. 

• Read the header records of all input files, store required 
data in working storage and check for correct files. • 

• Determine the number of vehicles and if only 1, which one. 

• Determine the key time points in the run as shown in the 


example below: 

Data Required: IVITIM, IV2TIM, ISOSTR and NODAY 
from the swath table file. 

ISTIME, NDAYS from cards. 


Swath 

and 

N. Lat. 
Start 


Vehicle 

1 

Start 


§ 

(5 w 


S. Eat. 
Start 


N. 

End 


Lat C -U 


W 


Vehicle 

2 

Start 


Time in Days 
for Swath 


Swath 

and 

S. Lat. 
End 



rqocjTT? 



1 

V ^ 

< 1 

X0V-/0 JLXv 
1 \ 

1 

V ' 

! 1 


7 


Program Block Diagram - MAIN 


28234-6028-RU-00 
Page 14 


Initialize Flags, 
Ctrs, Storage for 
the Case 


Call RDCD to Read 
Input Card Data, 
Account for Nomin- 
al Values and Store 
in Working Storage 


Call ERRDET to 
Check Card Input 
Errors 


Call WEATH to Read 
NASA Tape and Gen- 
erate Weather File 


Write Status 
Information for 
This Phase. 

W rap Up W riting 


= A or 2 


of Files 

Test lOPT for 



0, 1 or ^ 2 


Is lOPT 1 or 

= 0 


s 2 

RUN SAGE 

= 

1 

ONI-Y 

RUN 

SAGE 


C4II INIT to Control 
the Set Up of Times, 
Read File Header 
Records, Check 
for File Errors and. 
the Writing of Seg. 
Ref. File Header 


Perform 
Initialization 
for a Segment 


Read 1 Record 
from the Seg. Id. 
File ' 



1 

Is This the 
Trailer Record 


NO 

1 


Call SEGPRO to 
Control the Pro- 
cessing of AH' 
Acquisitions for 
1 Segment 


Write Trailer Record 
on Seg. Ref. File, 
YES Rewind Files and 
■ ^ Print Status Infor- 

mation 


STOP 


Write 1 
Record on 
the .Seg. 
Ref. File 


Is IREPT 
True 


YES 


Call SEGREP 
to Print Data 
for 1 Segment 


II 
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Explanation of diagram above: 

• Time 1 and time 7 represent the duration of the swath table 
and reference files. 

• Time 2 is ISTLME and represents the desired run start date 
for access, 

• Time 1 and time 3 are IVITIM and IV2TIM. 

• ISOSTR represents the delay in the utilization of the southern 
latitude band data which starts at time 4 = time 1 + ISOSTR. 

e Time 5 represents the last day of northern latitude band day 
of northern latitude band day utilization and is computed by 
time 5 = time 7 - ISOSTR. 

o Time 6 is = to ISTIME + NDAYS’- 1. 

• Time 7 is = to the smallest of IVITIM and IV2TIM + (NODAY - 1). 

• In this example, accesses for the northern latitudes and vehicle 1 
would start at time .2. Accesses for northern latitudes and both 
vehicles would start at time 3. Both southern and northern lati- 
tudes would be processed starting at time 4. The processing 

for northern latitudes would stop at time 5 and the run would end 
at time 6. 

2. Processing for 1 Segment 

The following procedure is performed for all segments as read from 

the segment location file: 

1) Determine if current segments LAT-LON will be accessed by 1 
or 2 vehicles and whether it is in an active hemisphere. If not 
in an active segment, the remainder of the steps are skipped 
and the next segment is initiated. Determine day search limits 
on swath files. 

2) If the THETSG is in the band about the equator not in LATNO 
table, an information message is printed and the next seg- 
ment is initiated. Given the grid point for the current 
segment lat/lon, the cloud cover data is read from the 
weather file for 1 year of daily data, this is stored into . 

ICLDCV array. 
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3) Establish Potential Access 

The following steps are done for each day within the specified 
time limits and each vehicle; 

a. Compute A and A 

Determine latitude j and j + 1 from LATNO table such 
that LATNO(j) SLATNO(j+l) 

AQj(j+D] 

= MAX [AO^U), An^Cj+i)] 

LAT = j; LATl = j+1 

b. Find a day no. - JDAY, rev no. - IREV, vehicle no. - IVEH 
on the segment reference file such that 

*^MIN ^<^ODE - '‘sEg'^ou 2 ^ ^ 

If (^j^oDE " ^SEG^ these bounds, then no 

access is possible. The processing for the next day is 
initiated. Otherwise, step 4 is next. 

4) Access Verification 

a. The record on the swath table for day - JDAY and vehicle - 
IVEH is read to get TIME, IAL.T and DLONG for latitudes 
LiAT and LATl. IDAY and IZDAY are computed from JDAY. 

b. Letting j = lAT and j+1 = lATl, the following equation set 
is computed: 

DELTA = THETSG - lATNO(j) 

Compute following equations for i = 1, 3: 

XTIME(i) = TIME(i, 1) + DELTA >!< [TIME(i, 2) - TIME(i, 1)] 

XDLONG(i) = DLONG(i, 1) + DELTA * [DLONG(i, 2) - DLONG(i, 1)] 

ALT - ALT, 

XAET = ALTj + flME(2. 2) - TIMEfZ. ' l) * <^TIME(2) - TIME(2. 1)) 
SIGMA = ARCSINr(^SABS|iMilI^ s. SIN(SA(3))1 - SA(3) 




I 
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DDLNGL = 


- .DECK 


RADIUS SIGMA 


r- * (XDLONG(3) - XDLONG(2)) 


= RADlgs^^iG M A * (XDD0NG(2) - XDLONG(l)) 

CHECKL = XDLONGO) + DDLNGL 

CHECKR = XDL0NG(1 ) - DDENGR 

CHLONG - (PHISEG - PHINDE) MOD 360 (2tr) 

Check for valid access: 

If CHLONG < than CHECKL, then no access is possible 
and step 3 is retried for the next day. 

If CHLON ^ than CHECKR, then no access is possible 
and step 3 is retried for the next day. 

If neither of these conditions exist, then there is an access 
and step 5 is performed. 

5) Compute imaging conditions: 

If (CHLONG - XDLONG(2)) is - 
<0 access is on left side, execute a. 

= 0 access on ground track, execute b. 

>0 access is on right side, execute c. 

« TS - I [cHLONG - XDLONG(2) 1 . 

• a. ■^■‘■■^■^i^) + |xDLONG(3) - XDLONG(2) J 

[XTIME(3) - XTIME(2)] + TMNODE 

CTA = .TAN-‘ \( ^TAN(SA(3))| 


YALT = ALT(l) + 


TS - TIME(2, 1) 
TIME{2, 2) - TIME(2, 


b. TS = XTl!ME(2) + TMNODE 


CTA = 0 


YALT = XALT 
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, r CHLONG-^DLONG(2) 1 ^ 

TS XTIME(2) +|^xDLONG{l) - XDLONG(2)J " 

[XTIME(l) - XTIME(2)] + TMNODE 

CT\ TV]"! CHLONG - XDLONG{2) ^ 

CTA _ -TAN XDLONG(rr-" XDLONG(^y j 

YALT = ALT(l) +^tIME( 2, 2) -^TIME(2, 1)J " [ALT(2) - ALT(l)] 

6) Compute sun angle - EL 

This calculation is performed by using an existing subroutine 
ALPHA. 

Store in ICLOD the % value from the cloud cover day table for 
' IDAY. 

The following data is stored by acquisition day for each acquisition 
from the computed quantities above. I represents the count on 
number of acquisitions, 1^1^ 150. 

IZDAYT(I) = IZDAY, ICLODT(I) = ICLOD 

IREVT(I) = IREV, TST(I) = TS’ 

IVEHT(I) = IVEH, YALTT(I) = YALT 

CTAT(I) = CTA 

ELT(I) = EL 

7) The data from segment location file is then combined with the data 
from step 6 and a record on the segment reference data file is 
written. 

3. if IREPT is true, the segment acquisition data report is generated. 

4. Steps 2 and 3 are repeated for each segment on the segment location 
file. 



i 


^ c. 


f 


DLOMMN 
(100) . 


The minimum A longitude at a given latitude from the 
ascending node. 

Sw. Tab, 

3 

DLONMX 

(100) 


The maximum A longitude at a given latitude from the 
ascending node. 

Sw. Tab, 

3 

^CLDCV 

1(366) 

-- 

% 10 of cloud cover for each day of a year. 

Weath. File 

2 

jpHINOD 

1(17) 

iJ' 

^NODE 

Longitude of ascending node for all revs for a day. 

Sw. Ref. 

3 

^HISEG 

1 ^ 

^SEG 

Longitude of segment. 

Seg. Loc. 

1,2, 3. 4. 7 

Ithetsg 

9t 

Latitude of segment. 

Seg. Loc. 

1,2, 3,4,7 

!jlatno ■ 
I (100) 

-- 

Table of latitude no. 's to be studied. , 

Sw. Tab. 

3 

jiZDAY 

1 

|IREV 


Zulu day no. for which there is an acquisition 

4 

Seg. Ref. 
File 

— 

Day rev no. of acquisition. 

3 

7 

jlVEH 

-- 

Veh no. associated with acquisition day. 

3 

7 

|IGRID 

! 

-- 

Grid point no. for current segment latitude- 
longitude 

Seg. Loc. 
File 

2 

Ilat 

-- 

Latitude ptr. into LATNO which gives upper bound 
latitude on 9,p. 

3 

4 

1 LATl 

1 ' 

-- 

Latitude ptr. into LA TUO which gives lower bound 
latitude on 9,^,. 

3 

4 

1 TMNODE 

[' 

*^ODE 

Time ascending node crosses equator for ZDAY, IREV 
and IVEH. 

Sw. Ref, 

5 

1 ^ 


*New 




Radians 


Radia'ns 


0-1000 I Radians 


Radians 


Radians 


0-+^65 Deg 
Day 


-- pi 00 

TO Nl 
(8 W 
4^ 

sD O 

-- O 

C\J 

00 » 
I 

c ^ 

Sec q 

I 

o 

o 










3.4(cont'd) - - SAGE Symbol Table 


Name 

Symbol 

Description 

Source 

U sed 

Ramre 

Units 

DLNMIN 

^^MIN 

The conservative minimum A longitude which bounds the 
segment. 

3 

3 

. 

0-277 

Radians 

DLNMAX 

^"'^MAX 

The conservative maximum A longitude which bounds the 
segment. 

3 

3 

0-27T 

Radians 

dlong’ 

(3,2) : 

A 0 

Vehicle and swath A longitudes for LAT and LATl. 

Sw. Tab, 

3,4 

0-2ff 

Radians 

! TIME (3, 2) 

-- 

Times associated with DLONG 

Sw. Tab, 

3, 4,5 

1-84,600 

Sec 

ALT (2) 

-- 

Vehicle altitude at LAT and LATl 

Sw, Tab,, 3 

4,5 



PHINDE 

'"node 

Longitude of ascending node for IREV, IDAY and IVEH. 

3 

4 



i SA (3) 

-- 

Reference scan angle; 

Sw. Ref,. 

4,5 



DELTA 

-- 

Latitude interpolation difference. 

4 

4 

■ 

Radians 

XTIME (3) 

-- 

til 

Vehicle time at latitude of interest for i swath 
position: left, center right. 

4 

4,5 


Sec 

i XDLONG(3) 

— 

til 

Delta longitude at latitude. of interest for i swath 
position: i = left, center, right. 

4 

5.4 


Radians 

^ XALT 

-- 

Vehicle altitude at latitude of interest. 

4 

4 


Kilom. 

SIGMA 

-- 

Half earth centered angle for swath. 

4 

4 


Radians 

DDLNGL 

-- 

Longitude decrement for left side. 

4 

4 


Radians 

DDLNGR 

-- 

Longitude decrement for right side. 

4 

4 

« to 

(9 W 

Radians 

CHECKL 


Relative longitude for left side of swath. 

4 

4 

tSJ 1 
O O 
O 

Radians 

CHECKR 

-- 

Relative longitude for right side of swath. 

4 

4 

t\) 

00 

1 

IP 

Radians 



*New 



CJ 

1 

o 

o 

■s. 







3.4 (cont'd) SAGE Symbol Table 


Name 

Symbol 

Description 

Source 

U sed 

■Ranee 

DECR 

-- 

Swath decrement input from cards. 

Cd. In. 

4 

1 to 100 

TS 

T 

S 

Image time. 

5 ■ 

5.7 


CTA 

-- 

Cross track angle. 

5 

5. 7 ■ 


|:yalt 

-- 

Altitude of vehicle at time of acquisition, . 

5 

5.7 


;.RADIUS 

— 

Radius of earth - 6376.436 

Const. 

4 


i' , : 

iEL 

1 

-- 

Sun elevation angle. 

6 

7 


ICIS 

-- 

Obliquity of the ecliptic - . 409280. 

Const. 

6 


CNUV 

-- 

Constant-true anomaly of the earth at vernal equinox - 
1. 35695. 

Const. 

6 


ECCE 

— 

Constant-eccentricity of the earth's orbit - . T67263E-1. 

Const. 

6 


JDAY ; 

— 

Day no. from 1 to 549 to compute swath table record no. 

Sw. Ref. 

4 


IDAY 


Day no. of the current year (current date). 

4 

6 

1 

PI 

It 

3. 1415926 

Const. 

6 


PI2 

irlZ 

1. 5707963 

Const. 

6 


PI32 

3/277 

4. 712389 

Const. 

6 


RADIAN 

-- 

57. 29578 

Const. 

6 

nj 00 

TWOPI 

277 

6. 2831852 

Const. 

6 

N) 1 
1— O 

o 

CHLONG 


Relative longitude difference of segment of interest. 

4 

4.5 

to 

00 







ICLOD 

-- 

Cloud cover % * 10 for day of acquisition. 

6 

7 

d 



f 



o 



- 



o 


Units 

Kilom. 

Sec 

Radians 

Kilom. 

Deg 


Radians 
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4.0 OUTPUT 


Where appropriate, the output discussion will refer to SAGE and 
to the weather data file utility. If no mention is made of the utility or 
SAGE, then it can be assumed the information refers to SAGE only, 

4. 1 PRINTED DATA 


4. 1, 1 Reports 

There is only one report and it is printed by segment no. The 
report lists the pertinent data for each time a given segment is acquired 
by one of the vehicles. The format of the report is as follows: 

Segment Access Data Report Country AAAA 
Segment nnnn 


ACCESS ACQUISI 

COUNT MO/DY/YR REV VEH 


2 

3 


150 


nn 


/nn/ 


nn 


y 

nn/nn/nn 


nn 


y 

nn 


n 


I 

n 


CTA EL 

nnn nn nn nnn nn nn nnn. n 


CLOUD ACQUISI 
COVER TIME 


nnnnn 


y Y ^ 

nnn nn nn nnn nn nn nnn. n 


y 

nnnnn 


There is a maximum of 150 acquisitions possible requiring 4 pages 
of print, but in general, the total acquisitions will fit on 1 page. 

4. 1, 2 Intermediate Debug 

There is no debug output in this program. 

4, 1. 3 Status Information 

Weather Data File Utility 

The following information is printed upon successful completion of 
the utility: 


ALT. 

nnnnn 


y 

nnnnn 
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❖❖^WEATHER DATA FILE UTILITY COMPLETED 
WEATHER DATA FILE: 

NO OF DAYS IN A RECORD; NNN 

NO OF RECORDS READ: NNNN 
LAST RANDOM NO SEED: + NNNNNNNHNN 
SAGE Program 

The following information prints, out upon successful completion of 
the SAGE program: 

■**>!^SAGE HAS SUCCESSFULLY WRITTEN THE SEGMENT 
REFERENCE DATA FILE 

SEGMENT REFERENCE DATA FILE: 

REFERENCE DATE: NN/NN/NN 

SWATH FILES CASE USED: NNNN 

NO OF RECORDS WRITTEN: NNNN 

SEGMENT ID FILE: 

REFERENCE DATE: NN/NN/NN 

SEGMENT ID FILE CASE USED: NNNN 

NO OF RECORDS READ; NNNN 


4. 1. 4 Echo Print of Input Control Cards 
The print format is as follows: 

HEADER 


AAA 


> AAA 


ICASE lOPT NDAYS ICSESW ICSESG ISTIME LVEH IREPT DECR 
NNNN N NNN NNNN NNNN NN NN NN NN L N. NN 



RAND IGRDN ISWRTO NLATSW 

NNNNNNNNNNN+NNN NNNNN NNNN NNN 



4. 2 FILES 


There are two possible output files. The weather data' file utility 


produces the weather data file - WEATHR. This file is defined already 
in Section 2. 2. SAGE generates the segment reference file - SEGREF. 
See Section 2.4 of the Users Manual for a description. 
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SEGMENT REFERENCE FILE 

i 

Access Method: Sequential with fixed length records 

Status: Semi-permanent. Regenerated normally less than once 
per week. Will normally be kept on tape. 

Sort: Country, then region, then zone, then strata, then substrata, 
, and then segment. There are 4800 segments for DAPTS and 
IOC; 10000 for FOC. 

Media: Disk or tape, tape for IOC 

Record Formats: 

Header Record: i 

Name (2) - 8 bytes, file name: 'SEG REFEl ' 

ICASE - 2 bytes, case no. - 4 digits 

Reference Date - No. of days since 1900 (2 bytes) 

Used in conjunction with acquisition date. 

NMAX - 2 bytes, no. of days in study; range 1 to 426 

No. of Crops - 3 for IOC, max of 26 for FOC 
ICSESW - 2 bytes, swath files case no. - 4 digits 
ICSEdG - 2 bytes, segment ID file case no. - 4 digits 

Total: 20 bytes or 8 words + 2360 bytes filler for IOC 

Detail Record: 

Country ID - 4 bytes, 4 alpha characters 

Region ID - 2 bytes, 3 digit no. , 1 to 100 

Zone ID - 2 bytes, 3 digit no. , 1 to 400 

Strata ID - 2 bytes, 4 digit no. , I to 1600 

Substrata ID - 2 bytes, 4 digit no. ,' 1 to 4800 

Segment ID - 2 bytes, 5 digit no. , 1 to 10000 

Training Seg. Ind. - 2 bytes, 0 - normal, 1 - training 
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Training Seg. Ptr. - 2 bytes, segment no. of associated 

training segment (FOC) 

Latitude - 4 bytes, in radians, 4^ 

Longitude - 4 bytes, in radians, 0-27T 

Atmospheric Type - 2 bytes, 2 alphanumeric characters (FOC) 
Group No. - 2 bytes (FOC) 

Field Size - 2 bytes, kilometers^ * 10, range 10-20000 (FOC) 

Cropping Practice Flag - 2 bytes (FOC) 

■ Crop Proportion Table - IOC (FOC has 26 entries) 

- $ 

Crop Cat % mixed crop - 4 bytes, %, 0 to 100 
Crop Cat % winter wheat - 4 bytes, %, 0 to 100 
Crop Cat % spring wheat - 4 bytes, %, 0 to 100 
Acquisition Data - 150 entries each 

Acquisition Day - 2 bytes, Zulu date (no. of days since 1900) 
Revolution No. - 2 bytes, range 1 to 17 
Vehicle No. - 2 bytes, range 1 to 2 

'I 

Crosstrack Angle - 4 bytes. Radians, range + 10° 

i f ri ' > 

Sun Elevation Angle - 4 bytes. Radians, range + 90° 

Cloud Cover % - 2 bytes, % * 10 
Time of Acquisition - 4 bytes, sec, 1 to 86,400 
Vehicle Altitude - 2 bytes, kilometers * 10, 10 to 10000 
Station Contact Ind. - 2 bytes (FOC) 

Atmosphere Attenuation Factor - 2 bytes (FOC) 

Snow Cover % - 2 bytes (FOC) 

Last detail record has -ZZZZ' in the first 4 bytes followed 
by O's in the remainder of the record. 
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Total Length: IOC - 2^740.bytes, 1,217 words 
FOC - 3,686 bytes, 1,690 words 

Block Factor: 1 

File Size: IOC - 2,425,212 words 

FOC - 14,700,008 words 

Usage: This file will be used as follows: 

. 1. DAPTS 

Used by SACS in conjunction with the crop window file 
to determine when accesses occur and conditions of 
access. This data is then represented on the segment 
acquisition file. 

2. IOC 

Same usage as above. In addition, it will be used in 
conjunction with the data acquisition file by the CAMS 
module . 

3, FOC 

.Same usage as IOC except crop calendar information 
is obtained from substrata properties truth file. 


5. 0 ERROR PROCESSING 
5. 1 ■ GENEi^L 

The program will attempt to find as many errors during the input 
card processing as possible. The program will continue checking for 
further input errors upon detecting any input error. There are 2 levels 
of error. These are: 

Level 1 - continue processing 

Level 2 - job fatal 

When a level 1 error occurs, the program will print an informative 
message and continue. When a level 2 error occurs, the program will 
print an informative message and return control back to the computer 
system. 

5.2 INPUT DATA ERRORS 
.Level 2 

1 

1 1. A check is made to see if ICSESW matches tlie case no. on ■ 

the swatli files. Message: 

st-'-'lTCSESW DOES NOT MATCH THE CASE NO ON THE 

SWATH INPUT FILES OR SWATH FILES NOT MOUNTED. 

2. A check is made to see if ICSESG matches the case no. on 
the segment ID file. Message: 

^❖❖ICSESG DOES NOT MATCH THE CASE NO.. ON THE 
SEGMENT ID FILE OR THIS FILE tlAS NOT BEEN 
' MOUNTED. 
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3. A check is made to niake sure that ISTINIE is not less than 
the earliest vehicle start time as specified on the swath . 
table file. Message: 

«**ISTIME IS LESS THAN THE EARLIEST VEHICLE START 
TIME IVITLM OR IV 2 TIM. 

4. A check is made to make sure NDAYS is between 1 and 426. 
Message: 

*=i=^NDAYS IS NOT BETWEEN 1 AND 426. 

5. A check is made to make sure that the vehicle no. list in 
\ IVEH is between 0 and 2 and that there is at least one 

NONZERO entry. Message: 

*** IVEH HAS AN ENTRY NOT BETWEEN O'AND 2 OR DOES 
■ NOT HAVE AT LEAST 1 NONZERO ENTRY. 

6. A check is made to make sure that a weather data file has 
• been mounted. Message 

❖❖❖THE WEATHER DATA FILE HAS NOT BEEN MOUNTED. 

7. A check is made to make sure that the input quantity IVEH 
does not specify vehicles not on the swath files. Message. 

. ❖❖❖ IVEH LIST IS NOT COMPATIBLE WITrl NVEH AS 
•SPECIFIED ON THE SWATH FILES. 

8. A check is made to make sure IGRDN is between 1 and 16000 ' 

♦**1GRDN DOES NOT HAVE A VALUE BETWEEN 1 AND 
16000 

5. 3 PROCESSING ERRORS ‘ • 

Level 1 • 

■ 20. A check is made while forming the acquisition list for a 
segment that no more than 150 acquisitions occur. 

Message: 

♦^❖IN PROCESSING SEGMENT NNNN MORE THAN 150 
ACQUISITIONS HAVE OCCURRED. NO MORE 
ACQUISITIONS WILL BE PROCESSED. 

ORIGINAL PAGE IS 
OF POOR QUALmS 



I 




T 

i 


i 
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21. A check will be made to make sure at least 1 acquisition- 
of a segment occurs. • Message: 

processing segment nnnn no valid 

ACQUISITION OCCURRED. 

22. A check is made to see if a segment's latitude is in the 
band about the equator which is not accounted for in 
LATNO table. Message:- 

*f=*^SEGMENT NNNN LATITUDE NN NN NN IS NOT IN 

THE LATITUDE BAND SPECIFIED BY LATNO TABLE. 

23. A check is made in the weather file u-tili-ty to make sure 

99 ^ ^ 101. Message. 

*'*^'-tHE CUMULATIVE FREQUENCY DISTRIBUTION 
-F SUB 8 IS NOT BETWEEN 99' AND 101. 
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S.4 LNPUT /OUTPUT ERRORS 

For sequential I/O the FORTRAN system on the UNIVAC or PDP 
takes control and prints a rnessage identifying the problem and will either 
continue processing or abandon the job. • If processing continues, the 
system counts the number of times this error re-occurs and if it happens 
a certain number of tinaes, the system will abandon the job. 

For direct access I/O, the UNIVAC or PDP D.A. I/O package 
prints out an informativ'e message, sets an error flag and allo^vs process- 
ing to continue. In this program the swath table file is the only direct 
access file. Immediately after the informative message, the following 
message will print: 

40. ❖^I'^rAN IRRECOVERABLE I/O ERROR HAS OCCURRED 
IN REA BING/WRITING A RECORD ON THE 
FILE. THE JOB IS BEING ABANDONED. 

’ The blanks will be filled in with ‘SWATH TB', .or 'VJEATHER'- 
depending on the direct access file involved. 


1 



) 


T 

I 

f 


i 
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COMMON BLOCK DEFINITIOInIS 


r 
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COMON STORAGE ALLOCATION 

Nam e ' FT, AT. Siz e 56 Pag e 1 of 

Function 


Name 

Dimen- 

sion 

For- 

mat 

Description 

Sym- 

bol 

Units 

HEADER 

18 

R 

Contains 7 2 CHAR HEADER 



ICASE . 

1 

I 

Case no of access run 



JCSESW 

1 

I 

Swath files case no. 



ICSESG 

1 

I 

• 

Segment ID file case no. 




3 

I 

Run start date 




1 

I 

Start daysISTIME only in Zulu time 



NDAYS 

1 

I 

■ 

\ 

No. of days in the run set to 426 



IRBIH 

1 

I 

Program run option -0- run SAGE, 
1-Run weather, run both 



SHH 

2 

I 

List of vehicle no.'s to process set 
to 1, . 2 




1 

L 

Report print indicator F-No Print, 
T-Print 



NVEH 


I 

No. of vehicles on swath files 



MODAY 

1 

■ 

.No. of days in swath files 



flSH 


I 

Vehicle 1 swath start date 



:grid 

1 

I 

Current weather grid no. 



:v2tim' 

1^1 

I 

Vehicle 2 swath calen, start date 



LYR 

1 

_J 

Curr ent 2 digit years 



fAiO 

1 

I 

■Cui'.rcnt..niQnth_nn. 








. 



































i 



" — — 1 

1 



! 

i 


Nam e FLAG 
Function 


COMON STORAGE ALLOCATION 
Size 


Name 


Dimen- 

sion 


For-r 

mat 


Description 


LDA 

ISWDST 

JDAY 

IDAY 

IPDAY 

lYEAR 

iyearb 

[CDAY 

[SWVST 


Current day of month no. 

Zulu start day of swath table 

swath day 


= earliest 


[SLATS 

IN LATE 
[RUNE 
ISWATE 
N LAT 
NMAX 


Swath table file day no used to get 
record no. 


1 Day no. of current year 

I Preyious day no. of current year 

Computed from LYR modulo4 = 0-leap year] 
I 4 0 - not leap yr. ‘ ' i 

I 

I 

r . . i 

I Preyious year including' 195 0 

Day no. of run relatiye to 195 0- current 

J Zniu , : 

Start day of yehicle 1 swath - Zulu - 
I subscript 1 | 

Start day of yehicle Z swath - Zulu - 
subscript 2 ^ 

I Start day of souther n latitude - Zulu ^ 

j 

_I End day of northern latitude - Zulu J 

I Run end day - Zulu must be ^ ISWATE 

I Swath end day - Zulu 

No. 6f latitudes in LATNO band and in 
I swath file rec. 

No. of days in a weather data record 
_L ; 

Delay for southern hemisphere start 


S 


I 
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COI-mON STORAGE ALLOCATION 

- 


Size 414 


Pace 1 of 


ction Contains Da 



Dimen- For- 


Description 


%*10 Cloud cover for each d 


Zulu day no. for which there is an 
acquisition 

Rev no. on acquisition dav IZDAY 


Veh no. on acquisition da’ 


Latitude pointer into LATNO which gives 
upper bound latitude on ®T 


Latitude PTR into J^ATNO which gives lowe 
lower bound lat on °T 


Time ascending node cross's equater for 
IDAY. IREV and IVEH 


The conservative minimum A longitude 
which bounds the see. 


The conservative maximum A longitude 
which bounds the see. 


Vehicle and swath A longitudes for lat 
and latl 


R Times associated with DLONG 


R -Vehicle altitude at lat and latl 


Longitude of ascending node’ for IREV, 
R IDAY and IVEH 


R Reference scan angle 


R See problem definition 


R See oroblem definition 


Sym- 

bol 


ICLDCV 366 


IZDAY 


IREV 


IVEH 


LAT 


LATl 


* 

TMNODE 1 


DLNMIN 1 


DLHMAX 1 


DLOHG 


TIME 


ALT 


PHINDE 1 


SA • 


DELTA 


XTIME 





KILO 


M Node RAD . 








































































COMON STORAGE ALLOCATION 
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Nam e W OR K Size Pag e ? of 

Function 


Name 

Dimen- 

sion 

Forr 

mat 

Description 

Sym- 

bol 

Units 

XDLONG ■ 

3 

R 

See Problem Definition 

■ 


XALT 

1 

R 

See Problem Definition 




■m 

■ 

See Problem Definition 



DDLNGL 

i 

■ 

See Problem Definition 



DDLNGR 

1 

R 

See Problem Definition 



CHECKL 

1 

R 

See Problem Definition 



w 

1 

R 

. \ 

See Problem Definition' 



DECK ^ • 

1 

R 

See Problem Definition 



■1 

1 

D. P 

Random Number generator input seed 
(set to 1 . 0) . 



rs 

1 

R 

See Problem Definition 

T 

s 


m 

■ 1 

R 

See Problem Definition 



IM 

1 

R 

•See Problem Definition 



jlCLOD 

i 

H 

Cloud Cover % See Problem 
Definition 



wm 

1 

R 

Sun elevation angle 



CHLONG 

1 

R 

See Problem Definition 

— « -- 

RAD 

lACCCT 

1 

■ 

Count of no. of acquisitions for a 
Segment 





■ 







■ 
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COMI-ION STORAGE ALLOCATION 

Name C ON S Siz e 28 Page i of 

Kvinctio n Contains constants, file unit nambe rs and page control data 'for printing 


Name 

Dimen- 

sion 

For- 

mat 

Description 

Sym- 

bol 

Units 

IMP 

1 

I 

Card reader = 5 



KO 

1 

I 

Printer = 6 



NLINE 

1 

I 

1# 

Current line count = 40 initially 



LINMAX 

■ 1 

I 

Max lines on a page = 39 



NPAGE 

1 

I 

Page count = 0 - initiallv 



ISEGF 

1 

I 

Segment file' = 1 ID 



ISWR 

1 

I 

Swath reference file = 9 



ISWTB 

1 

I 

, \ 

Swath Table file = 8 



TREFF 

1 

I 

Seg. reference file - 10 



TWTHF 

1 

I 

Weather data file =11 



IWTAPE 

i 

I 

NASA weather tape = 33 



RADIUS 

■ 1 

R 

6376.436 radius of the earth 


KILOM 

CIS 

1 

R 

• •409 280 obliquit-y of the ecliptic 



CNUV 

1 

R 

1. 35695 -- See Problem Definition 



ECCE 

1 

R 

. 167 263 E-1 See Problem Definition 



PI • 

1 

R 

% 

3.1415926 



PI2 

1 

R 

1. 5707963 



PI32 

1 

. 

R 

- i 

4. 712389 






Name CONS 
Function 


COMON STORAGE ALLOCATION 
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Name 

Dimen- 

sion 

Forr 

mat 

Description 

Sym- 

bol 

Units 


RADIAN • 


TWOPI 


NAME 


NOCROP 1 


IBLKF 


IPCK 


NPREC 


LREC 


ISWRTO 1 




R 6. 2831852 


R 'SEGb REFER' 


I - 3 No. of crops IOC 


Bloc 



= 230 - No. of words in physical rec. 
ofIv7THF f 


= 46 - No, of words in logical rec. 
of IWTHF 


Total no. of records on swath table 
file - nominal 


Count on no. of veh 


No. of latitudes in the (input data) swath 
table - nominal 100 


No. of grid points to read and write on 
•weather file 


nominal = 16000- can be changed for 
debu: 





























































I 





T 

i 


Nam e ■ DIRAC 
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COMMON STORAGE ALLOCATION 

Siz e 5 37 8 Page of 


Functio n Direct access FiTo ct:nTagp 


Name 

Dimen- 

sion 

For- 

mat 

Description 

Sym- 

bol 

Units 

IDEXSW 

1104 

I 

t 

Swath ta,ble file index CDC only 



lA 

800 


Swath buffer storage 



IDEXW 

3 201 

I 

Weather file index CDC onlv 



IB 

23 0 


Weather file storage 


. 

IPC 

4 6 ' 

I 

Contains the weather % cloud cover in 
eights - 4 bits pack ‘ 






8 per word right justified 
























I i ■ : * ■ 

. ... - 



/ 

' 


' 



, 






'■r:i 











• 

f 



■*. 

- .. - ) 
















iillllllllllll 
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COMON STOMGE ALLOCATION 

Nam e WEATOT Siz e 4 77 

Functio n Contains weathe r data from weathe r tape 
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COMMON STOMGE ALLOCATION 

- 


Size 1200 


Page of 


Function Contains acquisition and weather data 


Data for writing on seg. ref. file 


Name 

Dimen- 

sion 

For- 

mat 

Description 

Sym- 

bol 

Uni-: 


IZDAYT 

150 

I 

IREVT 

150 

I 

CTAT 

150 

R 

ELT 

• 150 

R 

IGLCD'T 

150 

I 

TST 

150 

R 


I See IZDAY def. in work com. 


I See IREV def. in work com. 


R See CTA def. in work com. 


R See ELT def. in work com. 


1 

I See ICLOD def. in work com. 


See TS def. .in work com. 


. \ 

ALT def. in work com. 


I See IVEH def. in work com. 
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COMI-ION STORAGE ALLOCATION 

Nam e SKr.FTT, Siz e 1 3 Page of 

Functio n Contains data for one segment reco rd segment ID file 


Name 

Dimen- 

sion 

For- 

mat 

Description 

Sym- 

bol 

Units 

COUNTR' 

2 

R 

Alphs countrv ID 



IREG 

1 

I 

Region no. 1 to 100 



IZONE 

1 

I 

Zone no . 1 to 400 

. 


ISTRAT 

1 

I 

Strata no. 1 to 1600 



ISUBST 

1 

I 

Substrata 1 to 4800 



SEGMNT 

1 

I 

Segment ID 1 to 4800 



THETSG 

1 

R 

Segment latitude ±'rr/2 * 

0 SEG 

RAD 

PHISEG 

1 

R 

• 

Segment longitude 0 - 2it 

■ 

(A SEG 

H 

- 

- . r^~‘ 

- 






ICROP 

3 

I 

Crop proportion table 



ITRSEG 

• 1'' 

I 

Training segment indicator 












• 









% 




. .. r 





‘ 






. 
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COMMON STGR/iGE ALLOCATION 
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Name Sv'/ATH 


Size 1041 


Function Contains swath data woi'king area 



Dimen- For- 



Description 


Sym- 

bol 


LATNO 


I ALT 


NREV 



TIMEl 100,3 R 


DLONGI too, 3 R 


DLONMN 100 


DLONMX too 



List of latitudes from north to south 

± 65 


Vehicle altitudes vs LATNO 
KILOM 10 


Vehicle and swath edge times 0 -86,400 
vs LATMO 


Vehicle and swath edge A longitude 
0 -2 tt vs LATNO 


Minimum A longitude at a given latitude 
vs LATNO, 0 - 2-rr 


Maximum A longitude at a given latitude 
vs LATNO, 0 - 2 tt 


Current vehicle no. from swath ref 
1-2 ^ 


Current day no. 1-549 from swath 
ref. 


No. of revolutions for current day and 
vehicle - from swath ref. 


Time ascending node cross's equator for 
each rev swath ref. 


Longitude of ascending node for each rev 
swath ref' 


I i -North latitude band (!' 


South latitude band Positive entries 
1) - high (2) - low 


node RAD 
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PART ni 

LIST OF SUBROUTINES 
AND 

SUBROUTINE CALL STRUCTURE 



NAME 

1 . MAIN 

2. RDCD 

3. WEATH 

4. INIT 

5. READSW 

6. WEATF 
7., LFPA 

8. day 

9. FZULU 

10. SOL 

1 1 ; POTEN 

12. ACCVER 

13. IMAGE 

14. SEGPRO 

15. SEGREP 

16. WRITWT 

17. RDMIA 

18. UNPKPK 



i 

l' 

I. 
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LIST OF ROUTINES IN SAGE 

FUNCTIONS 
Main control 

Controls reading of data cards, checking and 
storing 

Reads NASA weather tape and writes weather 
data file 

Performs initialization of data and reads header 
records from input files, and writes he.ader on 
seg. ref. file 

Reads a record on swath file 
Reads a record from the weather file 
Computes days (Zulu Time) "common change" 
Computes IDAY-DAY no. of year 
Given. Zulu day, compute month, day and year 
Compute EL sun elevation angle 
Determines potential access for a day 
Verify access for a day 

Compute image conditions and sun elevation 
angle 

Controls the processing for acquisitions for all days 
for one segment 

Prints the output report for one segment 
Write records on the weather file 
Random number generator 
Data from or to IPC-file storage form 



,1 
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NAME 

19. EJECT 

20. PAGER 

21. PIMOD 

22. DEGMOD 

23. RDWETR 


LIST OF ROUTINES IN SAGE 
(CONTINUED) 

FUNCTIONS 

Restore page, print header 

Keep line count and restore page automatically 

Convert an angle to be between 0- 2it 

Convert an angle from radians to deg. , min. , 

Read NASA weather tape data into storage 
(need a routine for UNIVAC and CDC) 


sec . 


"i’ 
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SUBROUTINE CALL STRUCTURE 


SAGE (MAIN) 

RDCD 

PAGER 

EJECT 

INIT 

WEATF 

PAGER 

READSW 

PAGER 

PAGER 

LFPA 

SEGPRO 

WEATF 

UNPKPK 

READSW 

DAY 

POTEN 

PIMOD 

ACCVER 

READSW 

PIMOD 

IMAGE 

ALPHA 

PAGER 

DEGMOD 

SEGREP 

EJECT 

PAGER 

FZULU 

DEGMOD 

WEATF 

READSW 

WEATH 

WRITWT 

RDWETR 

PAGER 

RDMIA 

UNPKPK 
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PART IV 


SUBROUTINE DESCRIPTIONS AND FLOV/CHARTS 
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SUPPLIED UTILITY ROUTINES 


Routine Day 

Call Day (lYMD, IDAY) 

Given lYMD (3) where lYMD (i) 

lYMD (2) 
lYMD (3) 

Compute year day no. in IDAY 


Routine PIMOD 


IS Day No. 

IS Month No. 
IS Year No. 


Call PIMOD (A) 

Convert ±A in radians to an angle 0-Ztt 


Routine SOL (Entry ALPHA) 

Call ALPHA (IF LAG) 

For emphemeris usage as called by hector 

computes ALPHAM and ALPHAT and IF LAG = 1 

Routine PAGER (Entry Eject) 

Call PAGER (N LINES) 

Updates line count in NLINE with NLINES 

NPAGE = 0 causes page to be restored prior to print. 

NPAGE - page no. 

HEADER- 80 char. 20A5 
• ICASE- case no. 

KO - 6 print unit 

IN MAX is max no. of lines allowed 

Initially NLINE should be set > LINMAX and NPAGE = 0 
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SUPPLIED UTILITY ROUTINES 
(CONTINUED) 

Call EJECT (NLINES) 

Causes page to be restored automatically and then prints headers. 

Routine CLDAY 
Call CLDAY 

Given IDAY-DAY no. of the year compute in LMO-the month 
and in LDA the day no. 

Need: lYEAR = 0 - Leap Year, 4 0 not Leap Year 

Routine KEPLER 

Call KEPLER (XM, XECC, XE, ERROR) 

Given XM - Mean anomaly, XECC - eccentricity 
Compute: E-eccentric anomaly error = 0 means OK 

Routine LFPA . 

Call LFPA ■[ FLDA, LMO, LYR, ALFGM (can be dummy), DAYsl 

Given: FLDA - day of month no. , LMO - month no. , 

LYR - year no. compute ALFGM - right ascension and 

DAYS - Zulu day no. 

{ 

Routine DEG MOD . 

Call DEGMOND (RAD, IDEG) 

Given: angle rad in radians store the angle in deg. , min. , sec. , 
in IDEG(l) - (3). 

Routine FZULU 

Call FZULU (lOATE, lOUT) 

Given Zulu date in IDATE, compute year, month and day in 
lOUT(l) - IOUT(3). 

Routine RDMIA 

Call RDMIA(FL, U) 

Given double precision random no. seed in FL, comoute random 
•no. U (0-1) based on uniform distribution. 
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INITIALIZE 
FLAGS, CTRS 
ISGCT AND 
IREFCT = 0 


SUBROUTINE MAIN BLOCK DIAGRAM 


CALL RDCD(IE) 
TO READ, CHECK 
AND STORE 
DATA 



CALL WEATH TO 
READ NASA 
WEATHER TAPE 
AND WRITE 
WEATHER FILE 


WRITE STATUS 


PRINT 

INFORMATION 

— 

RAND 

AS PER P.D, 


NO. OUT 


CALL INITUIER) 
TO CONTROL THE 
INITIALIZATION 
OF FILES AND 
DATA 


© 



500 


i 



STOP 


YES 

PRINT CASE 



FAIL MESSAGE 



■ STOP 


READ A 

- ( 

ISEGF 

^ V 


© 



50 


YES 

WRITE STATUS 


INFORMATION 


CALL WEATF(2) 
CALL READ&W(3) 
TO CLOSE FILES 


WRITE TRAILER 
RECORD ON 
IREFF 


STOP 

_L 


WRITE EOF ON 
IREFF 
REWIND 
ISEGF, ISWR 
AND IREFF 


20 


CALLSEGPRO(ISEG) 
TO PROCESS ONE 
SEGMENT 


MULTIPLY 
VEHICLE ALT. 
BY 10* 

STORE IN 
YALT 


T 


WRITE A 


ADD 1 

RECORD ON 

-*■ 

TO 1 

IREFF 


IREFCT 


ORIGINAL PAGE IS' 
OF POOR quality; 



i 


CALLSEGREP 
TO PRINT 
DATA FOR 
1 SEGMENT 















Subroutine RDCD 


I 
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GALLING SEQUENCE: 

Call RDCD (IE) 

IE = 0 - CK, IE ^ 0 - ERROR 


PURPOSE: 


The purpose of this routine is to read the header card and data card 
into working storage and then perform error checks on the input data. 


INPUT: CONS COMMONS 
INP, KO 

OUTPUT; FLAG COMMON 

HEADER, ICASE, ICSESW, ICSESG, ISTIME, NDAYS, 
lOPT, LVEH, IREPT, NMON, 

WORK COMMON 
DEGR, RAND 

CONS: IVGT, IGRON, NLATSW 

SUBROUTINES USED: 

PAGER, EJECT 

METHOD/PROGEDURE 

Uf t-, ' 

1. Read header and store in HEADER, set IE = 0 

2. Read data card ISWRTO, IGRDN, NLATSW, 

NDAYS, LVEH, NMON, ISWRTO, IGRDN, NLATSW 
and RAND are read to temporary locations. If these 
quantities are 0 then set NDAYS = 426, LVEH=1, 2; 
NMON'=12; andRAND=1.0, ISWRTO= 1101, IGRDN= 16000, 
NLATSW = 100 ^ 

3. Call EJECT (2) 

4. Perform checks 4 and 5, 8 and set IE=0 if any errors. 

5. Return 
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Subroutine WICATH 

CALLING SEQUENCE: 

Call WEATH 
PURPOSE: 

This routine controls the reading of the NASA weather tape and 
writing of the weather file. 

INPUT: 

WEATDT COMMON 
IGRIDPT, IPERWT 
CONS COMMON 
IWRAPE 
FLAG COMMON 
NMON 

WORK COMMON: RAND 

OUTPUT: 

COMMON FLAG 
NMAX, IGRID 
DIRAC COMMON 
IPC 

COMMON WORK ICLDCV - Intermediate storage of PC data by day 
SUBROUTINES USED: RDV/ETR, WRITWT, UNPKPK, RDMIA 
METHOD/PROCEDURE 


See flow chart. 


SUBROUTINE WEATH BLOCK DIAGRAM 
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REWIND 

IWTAPE 


CALLWRITWTiO) 
TO INITIALIZE 
WRITING OF 
WEATHER FILE 


SET I = 1, 
COUNTON 
NO OF 
WEATHER 
RECORDS 


SET 

IREC= 1 


CALL RDWETR 
(IREC) TO 
READ 1 REC 
FROM WEATHER 
TAPE 


SET IGRlD-=- 
IGRDPT 


EXECUTE PROCEDURE 
2- 5 SEC. 3.3.2 P. DEF. 
GIVEN, IPERWT, 

RAND TO PRODUCE 
ICLDCV 


CALL UNPKPK(O) 
to COMPUTE 
DATA FROM 
ICLDCV 
INTO IPC 


CALL 

WRITWTd) 

TO WRITE 1 
RECORD ON 
WEATHER FILE 


RETURN 


ADD 1 
TO 1 ’■ 


IS I 

> IGRN 


CALL 
WR ITWT(2) 

TO CLOSE 
WEATHER FILE 





1 
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INITIALIZE 

COUNTERS 

FLAGS 

lER *0. ICLDCV 
IDEXSW AND 
IDEXW ARRAYS 
TOO 

▼ 

CALLV/EATFIO) 
TO READ HEADER 
RECORD FOR 
WEATHER FILE 
AND CHECK TO 
MAKESURE FILE 
ISTHERE 


CALL READSWIO) 

TO READ HEADER 
RECORD, CHECK 
CASE ID COMPATIBILITY, 
IF OK TO READ SEARCH 
DATA RECORD 

20-30 ’r 

REWIND ISEGF, 

ISWR AND READ 
THE HEADER RECORD 
OF EACH. CHECK ^ 

ICSESG AGAINST O 

SEGMENT ID FILE CASE 
AND ICSESW AGAINST 
SWTAC 

SWATH REF. FILE CASE 

35-40' T^K 

MAKE SURE LVEH 
LIST DOES NOT SPECIFY 
A VEHICLE NO NOT ON 
SWAPH FILE VIA NVEH. 
REARRANGE LVEH IN 
ASCENDING ORDER 

45 Vf’K 

STORE ZULU TIME FOR 
VEHICLE STARTS IN 
ISWVST ARRAY FROM 
IV1TIM AND IV2TIM 
USE CALL TO LFPA 

▼ 

CALL LFPA 
’ TO CONVERT 
ISTIMETO 
ZULU IN ISDAY 

50-55 T 

CHECK TO 

SEE IF ISDAY r 

IS > TO THE 
EARLIEST ISWVST 
TIME 

60 ^-VES 

ADD IS0STR*30 
TO EARLIEST 
VEHICLE START 
DAY 

STORE IN ISLATS 

T 

ADD (NDAYS- 1) 

TO ISDAY, STORE 
IN IRUNE ASTEMP, 
: RUN END 

V 

ADD (NODAY. 1) 
TO EARILIST 
;VEH ST. DAY 
STORE IN ISWATE 

V 

IF ISWATE 
IS<THAN 
IRUNE. SET 
IRUNE = ISWATE 


SUBROUTINE INIT BLOCK DIAGRAM 

PURPOSE: THIS ROUTINE INITIALIZES CORE, 

FILES AND DOES SOME PRELIMINARY 
CALCULATIONS. 

CALLING SEQUENCE: CALL INIT(IER) 

lER ■= O-NO FATAL ERROR 
lERpO - fatal ERROR 



return 



PRINT 
ERROR 
MESSAGE 3 


KD 


ADD 426 TO 
EARLIEST VEH 
START DATE, 
STORE IN 
INLATE IF INLATE 
>IRUNE, SET 
IRUNE IN INLATE 


WRITE THE HEADER 
RECORD ON IREFF 
CONTAINING NAME, 
ICASE, ISDAV, 
NOAYS, NOCROP, 
ICSESW, ICSESG 


RETURN 








Subroutine READSW 


1 

I 
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CALLING SECUENCE: 

Call READSW (IND) 

IND = 0 - initial, read header record and check for 

correct file 

IND = 1 - normal read 1 data record into working 

storage 

IND = 3 - termination - close file 

activity 

IND = 2 -read search table data record 

PURPOSE; 

This routine reads the header record or data record from the 
swath table file - ISWTB and stores the data into working 
storage. ISWTB is a direct access file 

INPUT: CONS COMMON 

KO, ISV/TB, NLATSW, ISWRTO 
DIRAC COMMON 

IDEXSW, A ■ 

WORK COMMON 
IREV, IVEH 
FLAG COMMON 

JDAY, JCSESW, NODAY 
ISWTB FILE - SWATH TABLE 

OUTPUT: 

FLAG COMMON 

ISOSTR. NLAT, NVEH, IVITIM, IV2TIM NODAY 
SWATH COMMON 

LATNO, lALT, TIMER DLONGl, DLONMX, DLONMN, INLAT, 
ISLAT 



! i 

f t 
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Subroutine REAPSW (Continued) 

METHOD/ PROCEDURE 

For options 0, 1, 2 array A is cleared 

IND = 0 -define file is given then the header record 

is read into A, the case no. is compared 
against ICSCSH and the first 2 words check 
to be = 'SWATH TB' if not, an error message 
is printed with a STOP. ISOSTR, NEAT, 

INLAT, and ISLAT are stored and check 
LVEH vs. NVEH. 

IND = 1 -IREC - record no, = (NODAY + 1)* 

(IVEH -1) + JDAY+ iilREC is read into A and 
then using NEAT the data is moved from A to 
SWATH COMMONvHOWDS = 8*]MEAT. 

IND = 2 -IREC = record no, = (NODAY -1) * 

(IVEH-i) + NODAY +2i Read search record 
from ISWTB (NOWDS = 8'1'NEAT) into A and 
move the search data to EATNO DEONMX 
and DEONMN using NEAT 

IND = 3 - Return 
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Subroutine WEATF 


CALLING SECUENCE: 

Call WEATF (IND) 

IND = 0 - read header record and check to make sure the file 
is weather file. 

IND = 1 - normal read a physical record and move desired 
logical rec to IPC 
IND = 2 - termination 

PURPOSE: 

This routine, given the grid no., will fetch the weather data for 
that grid from file IWTHF and store it into IPC for use by the 
application program. 

INPUT: CONS COMMON 

IWTHF, IBLKF, NPREC, NLREC, KO 
FLAG COMMON 
IGRID 

DIRAC COMMON 
INDEXC, IB 

The file as defined in sec. 2. 2, item 4. 

OUTPUT: FLAG COMMON 

NMAX 

DIRAC COMMON 
IPC 

METHOD/PROCEDURE 

See flow chart 


SUBROUTINES USED: 













i 

i 
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Subroutine POTEN 


CALLIMG SECUENCE: 

Call POTEN (IND) 

IND = 0 - potential access, IND ^ 0 no access 

PURPOSE; 

This routine determines for a given day and vehicle whether 
there is a potential access of a given segment. It does this 
by reading the segment reference file and executing equation 
set 3.3.2 item 2. 3 . 

INPUT: SWATH COMMON 

DLONMN - AO^ , LATNO, lALT 
. SEGFIL COMMON 

, THETSG - , PHISEG - 

CONS COMMON 
RADIAN, ISWR 

SWATH REFERENCE FILE RECORD WITH FOLLOWING 
DATA FOR JDAY AND IVEH IN SWATH COMMON - 

KVEH, KDAY, NREV, TIMNOD - ' ^NODE 

■ FLAG COMMON 
JDAY 

WORK COMMON 
IVEH 

OUTPUT: WORK COMMON 

IREV, LAT, LATl, PHINDE, DLNMIN, DLNMAX 

METHOD/ PROCEDURE 

1. Set IND = 0 

2. Read data record from ISWR file 

3. Compute DLNMIN, DLNMAX, LAT, LATl 

4. Compute IREV where there is an access if no access 
set IND 4 0 return. 

5. If access, store PHINOD(IREV) into PHINDE and 
TIMNOD (IREV) into TMNODE 

.6. Return 

SUBROUTINES CALLED: PIMOD, AMAXl, AMIN 1 


Subroutine ACCVER 
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CALLING SEQUENCE: 

Call ACCVER (IND) 

IND = 0 - Access verified, IND i no access 

PURPOSE: 

This routine verifies that a segment is actually accessed 
on JDAY for IVEH and IREV. It reads the record from 
ISWTB file specified by JDAY and IVEH, determines if 
an access is possible then computes IZDAY. See section 
3.3.2 set 4 for equations. 

INPUT: 

FLAG COMMON 
JDAY, ICDAY 
WORK COMMON 

LAT, LATl, PHINDE, SA, IVEH, DECR 
CONS COMMON 
RADIAN 

SEGFIL COMMON 
THETSG 

ISWTB SWATH FILE 

ORIGINALLY IN SWATH COMMON 
lALT, TIMEl, DLONG.1 

OUTPUT: 

WORK COMMON 

DELAT, DLONG, TIME, XTIME, XDLONG, XALT, SIGMA, 
DDLNGL, IZDAY, DDLNGR, CHECKL, CHECKR, CHLONG, 
TMNODE 

METHOD/PROCEDURE 

1 . IND is set = 0 

2. A call to RE ADS W is made to get LALT, TIMEl, DLONG 1 

3. DLONG 1, TIMEl, and lALT are moved into DLONG, TIME 
and ALT for latitude subscripts LAT and LATl. Note lALT 
is integer KILOM * 10 

4. Equation set 4b is executed 

5. If no* access set IND 4 0 and return 

6. ICDAY- is stored in IZDAY 
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Subroutine ACCVER (Continued) 

METHOD/PROCEDURE (continued) 

7. Return 

SUBROUTINES CALLED: READSW 




/ _ t i 
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Subroutine IMAGE 

CALLING SEOUENCE: 

Call IMAGE 

PURPOSE: 

This routine computes the imaging conditions of the access 
which are to be written out on the segment reference file. 

See section 3.3.2 of the problem description equation set 
5, 6 for equations. 

INPUT: 

WORK COMMON 

SA, ALT, XTIME, XDLONG, CHLONG, TMNODE 

OUTPUT: 

WORK COMMON 

TS, YALT, CTA, EL 

METHOD/PROCEDURE 

1. Execute equation set 5. 

2. Call ALPHA to compute EL. 



SUBROUTINES CALLED; ALPHA 


1 


f 
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SUDROUTINE SEGPRO 8LCCK DIAGRAM 


PURPOSE; THIS IS A ROUTINE WHICH CONTROLS ALL 
PROCESSI'IC FOR ONE SEGMENT. 

CALLING SEQUENCE CALL SEGPROIISEG) 

ISEG, • 0 - OK, ISEG * C NO GOOD 

a 


SET ISEG-0 
lACQCT • 0 
(ACQUIS. CTR) 

SET IV- 1 (VSHCTR) 


CALLACCVER (lACJ 
TO VERIFY ACCESS 
HAS OCCURRED 


TEST !AC 
• 0 - ACCESS 
^O-NONE 


MOVE iCLOCVdOAYl 
INTO ICLOD 


ISTHETSGOF 
CURRENT SEGMENT 
IN ACTIVE LAT. 
BAND AS SPECIFIED 
IN 1NLAT. tSLAT 

YES 

SET LATSG »0 
FOR NORTH LAT 
BAND, - 1 FOR 
S LAT. BAND 

yo •' 



• PRINT 
MESSAGE 
22 



TEST IPO \ 
'^O- POTENTIAL 
ACCESS 

N. AO -NONE ^ 


20-25 T 

CALL POTENIIPOl 
TO ESTABLISH 
POTENTIAL ACCESS 
FOR CURRENT DAY 


LATSG^ 
IN ACTIVE 
HEMIS. AS 
INDBY 
S^LATVP^ 


PRINT M 
MESSAGE 20 


COMPUTE IVER 
FROM LVEH(IV) 
CALLREADSW(2l 
TO GET SEARCH 
DATA FOR IVEH 


COMPUTE CURRENT 
DAY QUANTITIES FOR 

Tl ME_^OK« SP^G 

'ci^LDAYTO get” 
IDAYFROM ISTIME, 
YEAR»M0D4 of ISTIME M) 
!YEARB«IST)MEhl* 
1900-1,1CDAY*ISDAY 


IF isv;dst«; icDAYt; 

ISLATS SET LATYP = 0 - N 
IF ISLATS'-ICDAY^. INLATE 
SET LATYP-2-<N-fS)IF 
ICDAY > INLATE SET LATYPE 
= 1 - S, LATYP IND. ACTIV HEM. 


SKIP 1 DAY 
ON iSWR 


CALL IMAGE TO 
COMPUTE IMAGE 
CONO. AND EL 


ADD 1 TO 
I ACQCT 


IS lACQCT 
>150 


MOVE ACQUIS. . 
DATA, I.E. 

12DAY, IREV 
CTA, ECT. INTO 
ACQUIS COMMON 


ADO 1 TO 
IDAY, ICDAY 


EXECUTE CODE 
166 -215 FROM 
EPHEM PROG 

routine'main 

(DAY BOOKKEEP) 


NO^ ^^ IS ID 

> N DAYS 


CALLWEATF(I) 

TO READ WEATHER 
DATA INTO IPC FOR 
IGRIO 

REWIND ISWR; SPACE 
BY HEADER RECORD 


CALL 
UNPKPKI2) 
TO UNPACK 
IOC TO 
ICLOCV 


CLEAR ACCESS 
COMPUTATION 
ARRAYS TOO 


FOR CURRENT 
VEHICLE COMPUTE 
IN ITS DIFFER. 
BETWEEN SAGE 
START DAY AND 
SWATH START DAY 


SPACE ITE 
DAYS (IF ITE>0} 
ON ISWR FILE 


SET ID 
= 1 - DAY 
COUNTER 


/^ICOAY-^Sv 
CURRENT DAY 
LESS THAN 
ISEGPR - 
w SWATH ^ 
^S^STARTX^ 


^IS LVEH 
(IV) *0 
^OR )V>2 


IF lACQCT 
«0 PRINT 
message 21 


SKIP THE 
UNPROCESSED 
DAY RECORDS 
ON ISWR 


IFTHERB ARE 
2 VEHICLES ON 
THE SWATH REF. 
FILE AND ONLY 
THE 2ND ONE 
IS TO BE 
PROCESSED, 
SPACE BY THE 
1ST VEHICLE ON 
ISWR - SWATH 
REF. FILE 


^ IS 
ICDAY 
PAST LAST 
OAVOPSAGE 
V. RUN ^ 
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Subroutine SEGREP 

CALLING SEQUENCE: 

Call SEGREP 

PURPOSE: 

This routine prints the data for all acquisitions for 1 segment. 

• See problem description for the format. 

INPUT: 

WORK COMMON 
lACCCT 

ACCUIS COMMON 

IZDAYT, IREVT, CTAT, ELT, ICLODT, ICEHT, TST, YALTT 
SEGFIL COMMON 

COUNTR, SEGMNT 
CONS COMMON 
KO 

OUTPUT: See problem description Section 4.1.1 

METHOD/PROCEDURE 

1. Call EJECT (7) to restore page print run header 

2. Print report headers 

3. Print column headers 

4. For each acquisition - LACCCT 
Call PAGER (i) 

Call FZULU to convert IZDAYT to YR MON DAY 

Call DEGMOD to convert EL and CTA to DEG, MIN, SEC 

Print 1 line of data 

SUBROUTINES CALLED: DEGMOD, EJECT, PAGER, FZULU 



t 


1 


t 

) i 



} 

i 


T 

i 

i 
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Subroutine WRITWT 

CALLING SECUENCE: 

Call WRITV/T (IND) 

IND = 0 - write header record, IND = 1-normal, IND = 2, 

- termination 

PURPOSE: This routine accumulates logical weather data records into 

a record block and writes the record on the direct access 
file IWTHF. This routine is called for each grid point. 

INPUT: CONS COMMON 

IWTHF, IBLKF, NPREC, NLREC 
FLAG COMMON 
• IGRID, NMAX 
DIRAC COMMON 
IDEXW, IB, IPG 

OUTPUT: Either 1 logical record IPC moved into ® or B written out 

on the IWTHF file, see sec. 2. 2 item 4. for format details 
in problem description. 

SUBROUTINES USED; 

METHOD/PROCEDURE 


See flov/ chart. 


SUBROUTINE WRITWT SLOCK. DIAGRAM 
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CLEAR IB TO 
0 


MOVE 'WEATHER' 
TO IBID, IB(2) 
AND NMAXTO 
IB (3) 


DEFINE 'FILE: 
TO INITIALIZE 
IDEXW AND 
FILE IWTHF 


WRITE 1 PHYSICAL 
RECORD ON 
IWTHF 


SET IWR1T = 0 
INDICATING NO 
WRITE FOR 
NEXT CALL 


= n I EST IND =2 I 

FOR 0,1 OR ^ 

2 /TERMJ 

= l^^ORMAL ‘ 

^^-^EST IWRIT^V^'^O ^ 
■\FOR FOR ^ 


COMPUTE 
INDEX = 
IGRID 



V;RITE PHYSICAL 
RECORD FROM IB 
ONTO IWTHF 
REC, IREC 


WRITE IB - REC 
ON FILE IWTHF 


RETURN 



COMPUTE 
IREC = 

/igridv 

\iblkfL, 


CLEAR IB 
TOO 


COMPUTE 1 = 
(INDEX. D* 
NLREC+ 1 


SET IWRIT 
i^O 


SET INDEX 
= 5 


MOVE IPC 
TO IB(I) 
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SUBROUTINE UNPKPK BLOCK DfAGRAM (PAGE 1 OF 2) 


CALLING SEQUENCE: 

CALL UNPKPK(IND) 

IND = 0 - PACK CLOUD DATA FROM ICLDCV INTO IPC 

IND - UNPACK CLOUD COVER DATA FROM IPC AND STORE IN ICLDCV 

PURPOSE: DEPENDING ON IND THIS ROUTINE EITHER CONVERTS INTEGERS 0-8 IN 

ICLDCV AND THEN PACKS THESE 4 BIT NUMBERS 8 TO A IPC WORD OR 
CONVERTS AND UNPACKS THE INTEGERS FROM IPC INTO %‘10 AND 
STORES THEM INTO A ICLDCV WORD. 

INPUT: WORK COMMON 

ICLDCV 

DIRAC COMMON 
IPC 

FLAG COMMON 
NMAX 

CONS COMMON 
NLREC, IPCK 

OUTPUT: SAME AS ABOVE EXCEPT FOR NLREC AND IPCK 

METHOD/PROCEDURE 
IND = 0 
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i 

Subroutine RDVVETR 

CALLING SEQUENCE: 

Call RDWETR (IRC) 

IRC is logical record count 1 to 10 initialized to 1 by calling 
routine for first call only. Routine then adds to counter and 
resets it as needed to 1. 

PURPOSE: 

To read one physical record from the NASA tape unit IWTAPE 
and move 1 logical record into working storage 

INPUT: 

CONS COMMON NASA WEATHER TAPE 

IWTAPE 
WEATDT 

lA - See Section 2. 2 of problem description for format 
of each logical record 

OUTPUT: 

WEATDT COMMON 
IGROPT, IPERWR 

METHOD/ PROCEDURE 

Use NTRAN to perform the read from the weather tape. 


SUBROUTINES CALLED: NTRAN, PAGER 
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SACS PROBLEM DESCRIPTION 

1.0 SCOPE 

‘ This document describes the requirements and orocessing logic for the 
Segment Acquisition Selector Program (SACS). This program is an integral 
part of the Large Area Croo Inventory Experimeiit (LACIE) System. 

I j 

1.1 Program Capabilities . This program selects data from the Segment Refer 
ence File based upon data input manually and from a Crop Window File. It 
writes the extracted data to a Data Acquisition file and prints two summary 
reports describing the selected data. A processing flow diagram is shown in 
Figure 1-1. 

1.2 Program Development and Organization . The program will be developed on 
the CDC 6600 Time Sharing System using ANSI Standard FORTRAN. The develop- 
ment procedures provide for adherence to the following guidelines: 

a. Capabilities used in CDC FORTRAN will be compatible with 
UNIVAC 1108 compiler capabilities to provide for conversion 
with minimum amount of effort, i 

bi The program, its data and system subroutines will require 

no more than 24K words of core for the UNIVAC 1110. 

I ' j : 

c. Subroutines will be no longer than 100 FORTRAN statements 
and will clearly identify in a header comment block any PDP 
incompatibilities- 
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d. Variable naming conventions ^ Each variable will be started with 
one letter identifying its source or the common block in v/hich it 
resides. It will be followed by 4 or 5 characters identifying 
the variable a prefix-of i or x vnll be used to denote integer or 
real respectively, if required, 

1,3 ^erational Assumptions. The file restrictions are outlined in the file 
descriptions (see Appendix A Segment Reference Data File, Appendix B Crop 
Window File and Appendix C Data Acquisition File). Additional restrictions 
ere outlined as follows: 

a. ATI detected errors cause the program to abort and the output files 
and reports are terminated without completion. 

b. The following program data maximums are checked. 

1. Only one country may be selected for any one program run. 

Z, Only one case of input parameters will be processed against a 
single Segment Reference Data File and Crop Window File. 

3. A maximum of 426 days is allowed for the acquisition period. 

4 , A maximum of 4 windows is allowed. 
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a. Name - SEG REFE , • - ' 

b. Access Method - Fixed length record sequential access method, 
standard FORTRAN access. 

c. Status or retention cycle - not applicable. 

d. Sort - A Header Record precedes the file and is followed by data 
records then a trailer record. The data records are in sort (from 
major to minor) as follows: 

1. ; Country ID (ZZZZ for trailer record) 

2. Region ID 

3. Zone ID 

4. Strata ID 

5. Siiibstrata ID 

.6. Segment ID - 

e. -Media - Disk or Tape 

2.2.2 Crop Window File. This input file contains a set of time windows for 
each geographical segment that specify growing periods for a crop. The file 
is generated by the .LACIE Utility Maintenance Program (LUMP) and is used 
soley by this program (SACS) for the selection of data in the SEG REFER file. 

A detailed file description is found in Section 2. 4 of the Users Manual. 

The file attributes are summarized as follows: 

a. Name - CROPWIND 

b. Access Method - Fixed length record sequential access method, Standard 
FORTRAN Access . 

f 

c. Status or Retention Cycle - Not applicable 

d. Sort - A header record proceeds the file and is followed by data 
records then a trailer record. The data records are in sort (from 
major to minor) as follov/s: 

V. Country ID (ZZZZ for trailer record) 

2. Region ID 

3. Zone ID 

4. Strata ID 

5. Substrata ID 
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2.0 INPUTS 

Inputs to this program are supplied by the following: 

a. Segment Reference Data File 

b. Crop Window File 

c. Manually generated parameter card input 

2.1 Card Inputs 

2.1.1 Card Input Data Quantities. Each parameter value entered via the input 
cards- must be entered unless explicitly stated. All integers must be right 
justified, all hollerith fields must be left justified. Each parameter value 
is outlined as follows: 

> 

a. XITTL - Card 01, Columns 1 through 48. Contains the case title that 
is to be printed at the top of each output page. 

fib. lACASE - Card 02, Columns 1 through 4. Contains the integer case 
number that identifies the ACQUIS I file and each pri nted output 
page. 

„c. ISCASE - Card 02, Columns 5 through 8, Contains the integer case 
number of the Segment Reference Data File (if 0 or blank no check 
on input case No. will be made). 

■'d. IWCASE - Card 02, Columns 9 through 12. .Contains the integer case 

number of the CRop window input file (if 0 or blank no check on input 
case No. will be made). 

. e. IPCC - Card 02, Columns 13 through 15. Contains an integer that 
specifies the maximum percent cloud cover to be used in selection 
of ACQUISI file segments. This number is expressed in tenths of a 
percent (e.g., 15.4% would be expressed as 154). All ACQUISI File 
cloud cover percents must be less than or equal .to this value. 
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T'f. ISAN6 - Card 02, Column 16 through 19. Contains an integer that 
specifies the minimum degrees sun angle to be used in selection 
of ACQillSI file segments. This number is expressed in hundreds 
of degrees and ranaes betv;een 0 and 90 degrees (e.g., 12.50 degrees 
would be expressed as 1250). All ACQUISI file sun angles must be 
greater than or equal to the specified angle. 

g. ICOUN - Card 02, columns 20 through 23. Contains 4 hollerith 
characters that identify the country to be selected. 

h. IREG - Card 02, Columns 24 through 26. Contains a three digit 
integer that identifies the region to be selected. 

:i. IZONE - Card 02, Columns 27 through 29. Contains a three digit 
integer that identifies the zone to be selected, a zero entry 
allows all zones in a region to be selected. 

j . Output options. Columns 30 through 31 . Contain a logical flag 
that specifies whether the prog^^^ reports are to be generated, 

A> an F specifies don't print the 

report. ’ ; 

• IPRPT-30- Daily Processing Load Report 
t ICRPT-31- Crop Window Report (segment acquisition) 

2.1.2 Card Formats. The SACS program requires two input cards. Each card 
has fixed field inputs. The card formats are shown in Figure 2-1 and each 
field is described in Section 2.1.1. 

2.1.3 Deck Setup. Each of the two input cards must be provided and must be 
supplied in card number order (see columns 79 and 80). 

2.1.4 Rules for Entering Data on Cards . (See 2.1.1) 

2.2 Input Files . 

2.2.1 Segment Reference Data File. This input file is generated by the Segment 
Access Generator Program and contains a data base of crop status for selected 
geographical segments of the world. The file is described in Section 2. 4 of 
the Users Manual. The file attributes are summarized as follows; 


iCARD 01 - OUTRUlVrmr^GARD 


— 


- PAGE CASE TITLE 

* -t 


(XitTL) 



PROGRAM OPTIONS CARD 
812 15 IS 


3 , 00 
o 

in ^ 

m 


^ ^ £ o ^ 

c:| 3 § 

2 3 o I ° go I 

H2r-i HH< ^r- 

i3S S ®:g:,3 n 3 

3 is— ? i I 

S r:^ X cn 


14 14 13 14 A 4 


OUTPUT 

OPTIONS 

I 

I 

U 

P 

C 

N 

R 

R 

U 

P 

P 

s 

T 

T 

E 

D 


LI LI 


T=YES, ^ PRINT 
F=N 0 , DON'T PRINT 


Figure 2-1 Input Card Formats 
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3.0 PROCESSING 

3.1 Overview . The program control flow for the SACS program is shown in 
Figure 3-1. The routines that oerform this processing are summarized as 
follows: 

a. SACS - Main control routine that controls the program flow and 
sets up all vendor dependent program variables. 

b. AINIL - Reads the manually generated card input parameters and 
performs all file label processing. 

c. AHEAD - Reads data records from both the Crop Window File and 
the Segment Reference Data File until a Segment Reference Data 
file redord for a required substrata is located or an end of 
file or zone is encountered on either file. 

d. - APRPT - Prints the Daily Processing Load Report. 

e. AFIND - Selects a Segment Reference Data file record based upon the 

crop time window and the cloud cover sun angle criteria. 

f. ACRPT - Writes the Segment Data Acquisition report. 

g. AWRTA - Writes the data and trailer records of the Data Acquisition 

file. 

h. ABARF - This routine writes all error messages. 

i. FZUL.U - Converts a date from zulu to MM DD YY 
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lort Access Dates 
nto increasing 



-^.acquisitioft 
date within 
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^\window 
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4.0 OUTPUT 

Output from the SAC's propram consists of the following: 

a. Data Acquisition File (unit lAFILE) 

b. Crop window report, under option control (see ICRPT, printed output 
unit lOFILE) 

c. Daily Processing Load Report under option control (see IPRPT, printed 
output unit lOFILE) 

4. 1 Print Data . 

4. 1. 1 Reports . 

4. L. 1. 1 Control Card Echo Print 

4, 1. li. 2 Crop Window Report . The format of the Crop Window Report is 
shown in Figure 4-1. 

4. 1. 1. 3 Daily Processing Report . The format of the Daily Processing 
Report is shown in Figure 4»2. 

4. 1. 2 Card Outputs .. Not Applicable. 

4. 1. 3 Output Files . This program outputs the Data Acquisition File ( see 
Section 2. 4 of the Users Manual) the file indexes selected segment acquisi- 
tions in the Segment Referqnee Data File. The file attributes are summarized 
as follows; 

a. Name - ACQUIS I 

b. Access Method ^ Fixed len'glh record sequential access method standard 
FORTRAN access. 

c. Status or Retention cycle - Not applicable. 

d. Sort - A header record proceeds th&. data records and they are followed 
by a trailer. The data records are in sort (from major to minor) as 
follows: 

The print format is: 

HEADER 

AAAA . > AAA 

ICASE ICSESR ICSECW IPCC ISANG ICOUN IREG IZONE IPRPT ICRPT 
NNNN NNNN NNNN NNN NNNN NNNN NNN NNN L. L 
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1. Country ID 

2. Region ID 

3. Zone ID ! 

4. Strata ID -j 

5. Substrata ID 

6. Segment ID 


. * 


CASE XXXX 


19 

SEGMENT ACQUISITION DATA 
19 33 

COUNTRY XXXX REGION XXX 


-44 


91 


45^ 

ZONE XXX 


CASE TITLE' 
55 


65 


7 

97 

PAGE XXXX 


STRATA XXXX SUBSTRATA XXXX 


2 5 

SAW SEGMENT 

ID- total 


W"" 


xxxxx- 


11 

XXXXX WINDOW TITLE XXXXX 

n 

TOTAL SELECTED 

ACQUISITIONS 


34 


ACCESS ■ 

12 ^ 
XXX 


18 

XXX ‘ XXX ^ XXX XXX 
XXX XXX 


35- 


WINDOW 2 


I 

'60 61 


WIND0W3 


85 8b 


-13 ' - 


WIND0W4 


SPACING 

1. SINGLE SPACE BETWEEN LINES OF SAME SEGMENT 

2. DOUBLE SPACE BETWEEN SEGMENTS 

PAGING ; j 

1. 39 . LINES/PAGE CDC 6600 

2. 58 LINES/PAGE~UNIVAC, PDP 
PRINTING 

IF NO. ACQUISITIONS' =0, SELECTED ACQUISITIONS =0 PRINT "NONE'' 

IF NO. ACQUISITIONS ?«0, AND NONE SELECTED PRINT "ALL ILLEGAL" 


Figure 4-T Format of Cropwindow Report 

o 
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DATE MM DD YY DAILY PROCESSING LOAD REPORT + CASE-TITLE PAGE XX 

■ STARfi DATE XXmX COUNTRY" XXXX REGION XXX ZONE XXX 


2 

RELATIVE- 

DAY 

— NO. 

ACQUISITIONS 

1' 

26 

RELATIVE 

DAY 

NO. 

ACQUISITIONS 

51 

RELATIVE 

DAY 

NO 

ACQUISITIONS 

76 

RELATIVE- 

DAY 

NO 

ACQUISITIONS 

01 

XXXXXX 

26 

XXXXXX 

51 


76 



02 

03 


25 » 50 XXXXXX 75 TOO 

tip TO 6 PAGES EACH PAGE CONTAINING UP TO 100 DAYS 

Figure 4-2 Format of Daily Processing Load Report 


u 

p 

a 


ro 
oo 
CSJ, 
w 

ro o 
w o 
r\) 
00 


a 


o 

o 


28234-6028-RU-00 
Page 124 


5.0 ERROR PROCESSING 

All fatal errors detected by this program shall result in termination 
of program execution. The detected errors are listed in Table 5-1. The 
processing logic is described as follows: 

a. Each time an error is detected, the routine A BARF is called 

with the error ID. 

L _ ^ 

b. The routine prints the error and forces the program to 
terminate execution if the error is fatal or returns control 
if the error is non-fatal. 

Non-fatal errors shall be printed and execution continued. 


r 



Table 5-1 Error Messages 


MESSAGE 

Cropwind file has invalid label name xxxxxxxx 
Seg refer file has invalid label name xxxxxxxx 
Cropwind input case xxx not equal to label case xxx 
Seg hefer input case xxx not equa^l to label case xxx 
Invalid country input xxxx cropwind xxxx seg refer xxxx 
No data selected for ACQUIS I file 

Seg refer acquisition day too large xxx, max-xxx, record=xxxxx 

Input cards invalid or out of sequence xxxxxx (Column 75-80) 

Input sun angle less than 0 or greater than 90.00 xxxxxx 

Percent cloud cover less than 0 a greater than 100.0 xxxx 

No. days in study exceeds 426 
iQrop window ,is mis sing a., z o ng xxx, 


*Non-fatal error message 
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PART n 

COMMON BLOCK DEFINITIONS 







I 


COI-MOy STORAGE ALLOCATION 

I ' - - 

Nam e PBLK Siz e • 

Function This Common Block ContaiTts Potpourrie Variables 
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Name 

Dimen- 

sion 

IPEOF 

! 

1 

IPFTF 

1 


Foi^ 

mat 


Description 


End of file flag F = more data, T = end f: le 


First time Flag 0 = first time, 1 = subse' 


quent times, -1 = last time 

V 


Type wheat (o = unidentified, S = spring. 


, = winter; inmaiiy zero 






IPERR 


IBC© 



■IPWRL 

150-1 

XPWRK 

150*!H 


13 Acquisition day when it exceeds maximum 


14 llAl Numbers in Hollerith 0,\1, 3. . . 9, blank, 


^ , -P , Comma 


Powers of 10 1, 10, 100, 1000, 10000 


Flag to denote whether errors 1 through 


12 are fa.tal (T = yes; F = no) 
TTTTTTTTTTTFF . " ' 


- Integer work area 


Real work area 












































Function This Common Block Contains all the Manually Generated Input 


arameters ana tfte Vendor Dependent Variables 


1 

Name 

1 

Dimen- 

sion 

For- 
mat 
»—'■■■■ ' ^ 

Description 

Sym- 

bol 



3^'2 j 3A2 Columns 75-80 input card 


XITTL 12, 1'. jl2A4^ Report case oriented page title 


lAiCASE 


ISCASE 


PRPT 


j 

icrpt’ 




XICOUN 

IREG 


IZONEj 

« 


A4 Case number that identifies the acquisition 
data file 



number is not used) 


14 Case number that identifies the crop 


is not used) 


13 The maximum percent cloud cover to 


file segments, the number is in tenths of 
a percent 


The minimum degrees of sun angle 


.MM.-M.KO. 


data file .segments. Hundreds of 
degrees and ranges between 0 and 90 


degrees sun angle in radians 


A4 Country ID 


13 Region ID . . 


13 Zone ID 


Processingload report flag, T=^print 


E Crop window report flag, T~print 


























































t 


COMON STORAGE ALLOCATION 
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Name IBLK 


Size 


Pag e 2 of_ 


Function 



Dimen- 

sion 


Foi^ 

,mat i 


Description 




Fortran Unit number for manually 
generated input 


Fortran unit number for crop window and 


l2 I Fortran unit number for segment 


reference data file 


12 I Fortran unit number for crop window file 


12 Fortran unit number for data acquisition 


INLINE 1 


XTWTTL 5, 8 1 5A4 Crop window titles 4 spring windows 
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Name. 


ABLK 


comas STORAGE ALLOCATION 
Siz e 1390 wor d s 


Functio n This common bloclc contains the da ta elements required to 
generate the ACQUI file, the crop window report and the 
I daily processing load report 



Dimen- For- 

sion mat 



A C RN 


AFNAM 


AF|TRL ■ 1 ■ 


’ 4, 



Description 


> 

F6 Current record number 


2A4: : File name initialized by data statement 

"Ar-nnT.cjfn 


1A4 TRAILERID ."ZZZZ" 


12 Total number of accesses for each 


IACNT(4)=WINDOW 4 


lATOT 1 


13 I Total number accesses all windows 


IAPNT 25,4 13 Pointer to the segment r'feference file 


has been selected ' • 



IAPA 


lANL 

IN 




. 426 


13 I Current page number (initially 0) 


12 Number of lines remaining on page 


^iniLiaiiy u; 

R1 Number of acquisitions' per’ day. 
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. COMON STORAGE ALLOCATION 
Nam e CBLK Size ’ Page of 


Functio n This common block contains the da ta elements from 
the crop window file 


1 Nami 

a 

i 

Dimen- 

sion 

Foi^ 

mat 

Description 

Sym- 

bol 

Units 

ICCRN 

, 1 

1 

FG 

Current record number 



CFNAMI 

2, i\ 

2A4 

File name that must appear in header 
iriitialiv set to "CROPWIND" 



CFNAM2 

2.1 

2A4 

Actual name, of file t 



ICCASE 

' 1 

13 

Case number from file header 


• 

ICWIND 

1 

11 

Number of crop windows (8) 



CCGU] 

j 


1 

• 

1A4 

Country ID 

• • 



ICREcb 

• 

1 

13 

Region ID \ 



ICZOli^E 

i ! 

1 

13 

Zone ID 



; 1 , 

icstra 

1 

14 

Strata' ID 



ICSUBS 

1 

14 

Substrata ID . 



ICLOW 

;'8-. 1 • 

15 

i . -s 

Start date relative to 'Jan.' 1, 19^0 

- 


ICHI , 

: 1 

8,1 

15 

. Stop date relative to Jan. 1, 19^0 


Hi 

i 1 

’ V 






IB 

: ' 1 

, • 



* Note first 4 represent winter wheat w 
last 4 represent spring w~heat wi 

indows 
idows . 

Bi 

t 




< . ' 





'S 


B| 




' 




. 


• 


j^B 
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COMMON STORAGE ALLOCATION '• ' • 


SBLK Size ' Page of 


Faction TLis common block contains'the variables extracted from 

reference data file (Seg Refr) 


1 

D^isnr 

sign 

Fof^ 

mat 

Description 

' 

Sym- 

bol 

Units 


1 

FG 

Current record number 



SFNAMl 

2. 1‘- 

2A4 

File name that must appear in header 
' r 0 C- refr- — 


■ 

§FMM2 

2.-1 

2A4^ 

Actual name of file „ 




■ 1 

4A4 

Trailer ID "ZZZZ" ' 


• 

JS§6A,§ 

1 

13 

Case number from file header 



i§M?E 

1 

15 

Reference date, integer no. of days 




1 

13 

Number of days in study ''(1 to 426) 




1 

13 

No. of acquisitions in record 



1 

1 

1A4 

Country ID 



1 : 
1 

-• 

1 

13 

Region ID 


- 


• Y 

13 

ZONE id ' 



■ 1 

1 

14 

Strata ID 



i . 

1 

14 

Substrata ID • 




\ 

15 

Segment ID . 


. 

% 


1 

F6. 2 

• 

Percent spring wheat 

1 



1 

F6. 2 

Percent winter wheat \ 





11. 

Training segment indicator, 0=normal, 




I 

L=_ 
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Name 


COTON STORAGE ALLOCATION 
Size__ 


Function This common block contains the variables extracted from the 


segment reterence data file (Seg. Refr. ) 


Name 

Dimen- 

sion 

7ov— 

mat 

Description 

ISRDAY 

150, 1 

13 

i 

Acquisition day for each of 150 acquisition 

SSANp 

150, 1 '• 

14 • 

c 11, LX it; b 

Sun angle radians 


ISPCC 

150, 1 

14 

Percent cloud cover 

10 . 
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PART m 

LIST OF SUBROUTINES 
AND 

SUBR OU TINE CALL S TRU C TURE 
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LIST OF ROUTINES IN SACS 


Name 

F unction 

1. ABARF 

Processes errors and prints messages 

2. ACRPT 

Print acquisition report 

3. AFIND 

Determines segment acquisitions from the segment 
reference file 

4. AINIL 

Performs initialization functions 

5. APRPT 

Prints the daily processing load report 

6. AREAD 

Reads one record from the crop window and segment 
reference data files. 

7. AWRTA 

Writes one record on the acquisition file. 

8. BINBCD 

Converts an integer to display code and places it in a 
hollerith string for printing 

9. FZULU 

Converts a zulu date to day, month and year 

10. MAIN 

Main control 

11. SORTAG 

Internal array sort routine 


r' 
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l$6 


SACS (MAIN) 

AiNiL : 
ABARjF 
AWRTA 
AREAD 

1 ABARF 
AFkND 

ABARF' 
AWRTA • 
ACRPT 

BINBCD 

APRPT 

FZULU 


! 
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PART IV 

SUBROUTINE DESCRIPTIONS AND FLOWCHARTS 
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SUPPLIED UTILITY ROUTINES 

Routine Day 

Call Day (lYMD, IDAY) 

Given lYMD (3) where lYMD (1) , IS Day No. 

lYMD (2) IS Month No. 
lYMD (3) IS Year No. 

Compute year day no. in IDAY 

Routine PIMOD 

Call PIMOD (A) 

Convert ±A in radians to an angle 0-Ztt 

Routine SOL (Entry ALPHA) 

Call ALPHA (IF LAG) - 

For emphemeris usage as called hy hector 

computes ALPHAM and ALPHAT and IFLAG = 1 

Routine PAGER (Entry Eject) 

Call PAGER (NLINES) 

Updates line count in NLINE with NLINES 

NPAGE = 0 causes page to be restored prior to print. 

NPAGE - page no. 

HEADER- 80 char. 20A5 
ICASE - case no. 

KO - 6 print unit 

IN MAX is max no. of linhs allowed 

Initially NLINE should be set > LINMAX and NPAGE = 0 
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SUPPLIED UTILITY ROUTINES 
(CONTINUED) 

f 

Call EJECT (NLINES) 

Causes page to be restored automaUGally and thoil pi’ints headers. 

Routine CLDAY - 
CallCLDAY 

Given IDAY-DAY no. of the year compute in LMO-tbc month 
and in EDA the day no. 

Need: lYEAR = 0 - Leap Yoai’, 4 0 not Leap Year 

Routine KEPLER 

Call KEPLER (XM, XECC, XE, ERROR) 

Given XM - Mean anomaly, XEGC - eccentricity 
Compute: E-eccentric anomaly, error « 0 means OK 


Routine LFPA 

Call LFPA 

Given: 


[flDA, LMO, LYR, ALFGM, (can bo dummy), DAYSJ 
FLDA - day of month no. , LMO - month no. , 

LYR - year no. compute ALFGM - right ascension and 


days - Zulu day no. 


R outine DEGMOD 


Call DEGMOND (RAD, IDEG) 

Given: angle rad in radians store the angle in deg 
in IDEG(l) - (31. 


min., sec. 


Routine FZULU i 

Call FZULU' (ibATE, lOUT) , 

Given Zulu date in IDATE, compute yenr, month and day in 

lOUT(l) - IOUT(3). 

Routine RDMIA 

Call RDMIA(FL, U) 

Given double precision random no. seed in FL, cumoute random 
no. U (0-1) based on ur.iiorn*, d isl rilHlliv'". . 
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SUBROUTINE A- BARF 

Purpose; 

This routine prints the error messages for the SACS program 
and returns control to the operating system. 

Input: 

The inputs to this routine are provided via the IBLK, CBLK, 

SBLK and ABLK common blocks. Table 6 shows the variables. 

Output; 

The outputs from this routine consists of a line of outputs 
printed on the output file (lOFILE). Table 5-1 shows the error 
messages in the problem description. 

Calling Sequence: 

Call A BARF (id) 

id, error number 

Subroutines Used; 

None. 

Processing: . • . 

The routine shall use a "COMPUTED GO TO" to access a write 

statement that prints the proper error message. 


Variable Name 


Set 


Use 


Description 


CFNAM2 


X 

Cropwind file name 

SFNAM2 


X 

SEG REFER file name 

ICCASE 


X 

Gropwind case number from 
file 

IWCASE 


X 

Input cropwind case number 

isgAse 


X 

Input SEG REFER case number 

ISCASE 


X 

SEG REFER case number from 
file 

IGOUN 


X 

Input card country ID 

GGOUN 


X 

Gropwind country ID 

SGOUN 


X 

SEG REFER country ID 

•SGRN 

■■■■■■■ ■ . .i 


X 

Gurrent SEG REFER record 
number 

ISNDAY 


X - 

Maximum number of days in 
study 

IPERR 


X 

Acquisition day wben it exceeds 
maximum 

PGRDID 


X 

Golumns 75-78 of current input 
card 

PGRDNO 


X 

Columns 79-80 of current input 
card 

ISANG 


X 

Sun angle 

IPGG 



% cloud cover 

ISNDAY 


X 

Number of days in study 
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Subroutine ACRPT 

Purpose: 

Prints the acquisition report - one record per entry. See the problem 
description for the report format. 
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SU BROU TINE AFIND 

Purpose: 

This subroutine selects acquisitions from a SEG REFER 
Data Record based upon the following: 

a. The acquisition date is within a specified period 

b. The cloud cover is less than a specified maximum 

c. -The sun angle is greater than a specified minimum 

Input: 

The inputs to this routine are provided via the IBLK; SBLK 
and CBLK. Table 4 identifies the variables. 

Output: 

The outputs from this routine are placed into the A BEK. Table 
4 identifies the variables. 

Calling Sequence: 

Call AFIND 

Subroutines Called: 

A BARF - Error routine. . 

Processing: ^ < 

A functional flow diagram is attached. 
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Error Exits 

07-SEG REFER acquisition day too large xxx 
maximum = xxx, record = xxx 





Variable Name 


IPTYPE 


IPERR 


IPNCW 

IPCC 


ISANG 


lACNT 


lATOT 

lAPNT 


ANACQ 


ICLOW 

ICHI 

ISDATE 


ISNDAY 

ISTRN 


ISRDAY 

ISSANG 

ISPCC 



Description 


Type wheat (l=spring, 8=winter 

Acquisition day for out of range 
date 

No. crop windows 

Maximum percent cloud cover 
^10 to be used in acquisition 
selection 

Minimum degrees of sun angle 
*100 to be used in acquisition 
selection 

Total number of accesses for 

each window - lACNT (1) > 

lACNT (4) 

Total number of accesses 

Pointer to SEGREEER ac- 
quisition entry 

Number of acquisitions per 
day 

Start date of window 
End date of window 


SEG REFER FILE reference 
date 

Number of days in study 

Training segment indicator 
(1 = training) 

Acquisition day (1 to 150) 

Sun angle (1 to 150) 

Percent cloud cover (1 to 150) 







T 
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ORIGINAL PAGE IS 
OF POOR QUAUTY 
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SUBROUTINE AINIL 

Purpose: 

This subroutine performs all initialization functions for the SACS 
program.^ The functions performed are listed as follows: 

a. Reads the manually generated input cards. 

b. Reads and verifies the headers for SEG REFER and CROP WIND 
files. 

c. Writes the header for the ACQUISI FILE 

d. Initializes common variables. 

Input: 

The inputs to the routine consist of common blocks, and 3 input 
files. Table 1 identifies the common variables used. The files are 
outlined as follows. 

a. SEG REFER - logical unit ISFILE, format shown in Appendix A. 

b. CROPWIND - logical unit ICFILE, format shown in Appendix A. 

c. CARD INPUT - logical unit IIFILE, format shown in Section 2. 1. 1. 

Output: 

The outputs from this routine consist of common variables and an 
output tape label. Table 1 identifies the variables. The ACQUISI file header 
is shown in Appendix C. 

Calling Sequence: 

Call AINIL 

Subroutines Called: 

ABARF and AWRTA 

■: ■ l\ '^ { ^ - ■" ■ 

Processing:', 

A functional flow diagram is shown in figure 3. 2. 2-1. 

I ' , 

Erjror Exits 

01 I ; CROPWIND file has invalid label name 

02 i ; SEGREFER file has invalid label name 

03 : j CROPWIND input case xxx not equal label case xxx 

04 ' I SEGREFER input case xxx not equal label case Xxx 

11 No. of days in study exceeds 426 . 

08 Input cards invalid or out of sequence 

09 Input sun angle less than 0 or greater than 90.00 

10 Percent cloud cover less than. 0 or greater than 100.0 


Table 1. Routine AINIL Inputs and Outputs 
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Variable Name 

Set 

Use Description 

ICID 

X 

Card ID columns 75-80 

IPEOF 

X 

End of file flag (false) 

IPTYPE 

X 

Type of wheat (unidentified, 0) 

ICREG 

X 

Cropwind region ID (0) 

ICZONE 

X 

Cropwind zone ID (0) 

ICSTRA 

X 

Cropwind strata ID (0) 

ICSUBS 

X 

Cropwind substrata ID (0) 

cdouN- 

X 

Cropwind Country (XICOIN) 

XITTL 

X 

Report case oriented page title 

lACASE 

X 

Case number (IIFILE) for 
ACQUISI file 

ISCASE 

X 

Case number (IIFILE) for Seg. 
Refer File 

IWCASE 

X 

Case number (IIFILE) for crop 
wind file 

IPCC 

X 

Percent cloud cover 

ISANG 

X 

Minimum degrees sun angle 
(degrees) 

XISANG 

X 

Minimum degrees sun angle 
(radians) 

XICOUN 

X 

Country ID 

IREG 

X 

Region ID 

IZONE 

X 

Zone ID 

IPRPT 

X 

Processing load report flag 

ICRPT 

X 

Crop window report flag 

lAPAG 

X 

Crop window report page number (0) 

LAN LIN 

X 

No. lines remaining on page (0) 

ANACQ 

X 

No. acquisitions /day (0) 


1 
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Table 1. Routine AINIL Inputs and Outputs 
(Continued) 


Variable Name 


Description 


CCRN 

X 


CROPWIND record number (1) 

CFNAMl 


X 

Name of CROPWIND file 

CFNAM2 

X 

X 

Cropwind file name from label 

ICCASE 

X 

X 

Case number from CROPWIND label 

ICWIND 

X 


No. of crop windows 

SCRN 

X 


Seg. Refer record number (1) 

SFNAMl 


X 

Seg, Refer file name 

SFNAM2 

X 

X 

Segi; Refer file name from label 

ISCASE 

X 

X- 

Case number from header 

ISDATE 

X 


Reference date 

ISNDAY 

X 

X 

No. of days in study (1-426) 
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SUBROUTINE APRPT 


Purpose: 

This subroutine prints the daily processing load report. 

Input: 

The inputs to tb'.s routine are provided via the IBLK and ABLK, 
Comnaon Blocks. The variables are shown in Table 3. 

Output: 

The outputs from this routine consist of the printed Daily 
Processing Load report. 

Calling Sequence: 

Call APRPT 

Subroutines Called: 

FZULU convert Zulu date to MMDDYY 
Processing: 

A functional flow diagram is attached. 
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Table 3. Routine APRPT Inputs and OUTPUTS 


Variable Name 

Set 

U se 


XITTL 


X ' 

lOFFLE 


X 

INLINE 


X 

ANACQ 


X 

ISDATE 


X 

XICOUN 


X 

IREG 


X 

IZONE 


X 

IP TYPE 


X 

ISNDAY 


X 


Description 


Report case title 

FORTRAN unit number for 
report 

No. lines per page 

No. acquisitions per day 

Reference date Zulu 

Country ID 

Region ID 

Zone ID 

Type of wheat 0, unidentified 
l=spring; 5=winter 

No. of days in study 






28234-6028-RU-00 

Page 153 


SUBROUTINE A READ 

Purpose: 

This isubroutine reads both the CROP WINDOW File and the Segment 
Reference Data File and returns a record of each or sets a flag indicating 
that an end of data has been encountered. 

Input: 

Inputs to this routine are provided by the IBLK, PBLK, CBLK 
and SBLK. Table 2 shows the variables. 

Output: 

Outputs from this routine are placed into the PBLK, CBLK and 
SBLK. Table 2 shows the variables. 

Calling Sequence: 

Call AREAD ^ . 

Subroutines Called: . 

ABARF - Error routine. 

Processing: 

A functional flow diagram is attached. 
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Table 2. Routine AREAD Inputs and Outputs 


Variance Name 

Set 

U se 

Description I 

IPjEOF 

X 


. End of file flag (T=EOF) ‘ 

IPTYPE 

X 

X 

Type wheat (0, unidentified; 1, spring; 
5, winteir) 

XICOUN 


X 

Input country ID 

IREG 


X 

Input region ID 

IZONE ■ 


X 

Input zone ID 

ISFIEE 


X 

Fortran unit number segment 
reference data file 

ICFILE 


X 

Fortran unit number crop window 
file 

CORN 

X 


Crop window file current record 
number 

CCOUN 

X 


Crop window Country ID 

ICREG 

X 


Crop window Region ID 

ICZONE 

X 


Crop window Zone ID 

leSTRA 

X 


Crop window Strata ID 

ICSUBS 

X 


Crop window Substrata ID 

ICLOW 

X 


Crop window, window start dates 

ICHI 

X 


Crop window, window ending dates 

SCRN ; 

X 


SEG REFER current record number 

SCOUN 

X 


SEG REFER country ID 

ISREG 

X 


SEG REFER region ID 

-ISZONE 

X 


SEG REFER zone ID 

ISSTRA 

X 


SEG REFER strata ID 

ISUBS 

X 


SEG REFER substrata ID 

ISSEG 

X 


SEG REFER Segment ID 

ISTRN 

X 


SEG REFER Training Segment 
Indicator 

ISRDAY 

X 

! 

SEG REFER relative acquisition 
day 

ISSANG 

X 


SEG REFER sun angle 

ISPCC 

X 


SEG REFER % cloud cover 

ISPCSW 

X 

X 

Per cent spring wheat =i=10 

ISPCWW 

X 

X 

Percent winter wheat ^-10 

SFTRL 


X 

Trailer ID "ZZZZ" 
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ERROR EXITS 

05 Invalid Country Input xxxx CROPWIND xxxx SEGREFELxxxx 

Country should be equal from all three sources 


T 
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SUBROUTINE AREADF BLOCK DIAGRAM (PAGE 1 OF 2) 










i 


28id34-6028-RU-00 
Page 157 


SUBROUTINE AREAD BLOCK DIAGRAM (PAGE 2 OF 2) 
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SUBROUTINE AWRTA 

Purpose: 

This subroutine writes the records of the Data Acquisition File. 
These records include the Header, data records and trailer. 

Input; 

The inputs to this routine come from the IBLK and the ABLK. 
The variables are shown in Table 5. 

Output: 

The outputs from this routine consist of records written to the 
"ACQUISI" file and variables updated in the ABLK. The variables 
are shown in Thble 5 and the record formats are shown in Table 5. 

Calling Sequence: 

Call AWRTA. 

Subroutines Called: 

None. 

Processing: 

A functional flow diagram is attached. 


28234-6028-RU-00 
Page 159 


Table 5. Routine AWRTA Inputs and Outputs 


Variable Name 


Set 


Use 


Description 


IPFTF 

IPNEW 

XICOUN 

lACASE 

lAFILE 

AFNAM 

ABLANK 

lACNT 

lAPNT 

I 

ACR]^ 

ICCASE 

ISNDAY 

iscase' 

KX 


X 

i 

) 

X 

X 

X 

X 


X’ 

X 

X 


First time flag 0=first time; 
1= subsequent times; l=last 
time 

Number of crop windows 
Input country 

Case number of acquisition 
file 

Fortran unit number of ac- 
quisition file 

File name 

Record padding 

Total number accesses per 
window 

Pointer to SEG REFER 
acquisitions selected 

Current record number 

Case number of crop wind file 

Number days in study 

Case number from REFER file 

Contains list of acquisition 
dates for writing out on 
acquisition file 
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SUBROUTINE BINBCD BLOCK DIAGRAM 
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PURPOSE; TO CONVERT AN INTEGER TO DISPLAY CODE CALLING SEQUENCE: 

CALL BINBCD (IVAL, NDIG, lOUT) 

IVAL- BINARY INTEGER 

NDIG - NO. OF DIGITS TO OUTPUT 

lOUT - ORIGIN OF THE OUTPUT CHARACTER ARRAY 


OVALUEd ) = 

1 

f 

II H II 

•sl 

1+1 

K-1 



J = I VALUE 
I = 1 

K = NDIGIT-1 
IBCD(1)= BLANK 



OVALUE(NDIGIT) 
= 0 


PUT * IN 
LAST DiGIT 
OUTPUT 

OVALUE(NDIGIT) 


N = J 

-10*^ 

'1 

r 

0VALUE(K) = 
IBCD(N) 
n = n + iqK 


r 

J=J 

K = 

-N 

<-1 



IBCD(1) = "0'' 


FOR VALUE^^I^ K,J5:^,^.^0 

I 


VARIABLES 

IBCD ARAY 0 
1 


9 

ITEN 1 

10 
100 

100000 

I = SUBSCRIPT INTO OUTPUT 
ARRAY 

J = CURRENT VALUE OF 
INPUT INTEGER 

K= NO. DIGITS REMAINING 
TO PROCESS-1 
N= CURRENT DIGIT VALUE 
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SU BROU TINE MAIN 

Purpose : 

This subroutine is the main ^:ontrol routine for the SACS program. 

It is entered by the operating system each time the SACS program is 
executed. - 

input: I 

The inputs to this routine are provided via common block supplied by 
the routines it calls. Since this routine is a control routine the inputs 
consist mainly, of flags and counters. 

Output: 

The outputs from this routine consist of the setting of flags. 

Calling Sequence:' 

Main Fortran routine. 

Subroutines Collect 

This routine: calls the following routines. 

a. AINU - initialization routine to read input cards and process 
file headers 

b. AREAD - Reach data records from both crop windows and 
segment reference data file 

c. APRPT - Prints the daily processing load report. 

d. AFIND - Selects segment reference file acquisitions based upon 
crop windows and specified input parameters. 

e. AWRTA - writes the data and trailer records of the data 
acquisition file. 

f. ACRPT - writes the Segment Data Acquisition report (crop 
window) 

Processing: 

A functional flow diagram is attached. . 
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JBROUTINE MAIN BLOCK DIAGRAM 
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Subroutine SORTAG 


Purpose: 

Sorts Array A into increasing order from A(II) to A(JJ), The array 
tag is permuted the same as Array A. This routine processes arrays that 
can fit in core only. (A CDC library routine.) 

Calling Sequence: 


CALL SORTAG(A, II, JJ, TAG) 






1 

i 

i 
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PART V 


SUBROUTINE LISTINGS 


t .T A8ARFfl,76n«?6» 503<t3 t 1 
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SllDHOUTit/F AHARF(ItRR) 
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■ V 

oooona 



0 0 0 0"0 j 

c 



ANARF 


oooona 

c 

ROUTl'.'t 

-AOARF 

AliARF 


ooooos 

c 



anarf 


0 0 p 0 n 6 

c 

PUHI’O.St 

THIS HHUTINL HRINIS ERROR MESSAGES AND ABUPtS THE 

AtiARF 


000007 

c 


program if iHt ERROR IS FATAL 

APAIIF' 


OOOGOO 

c 



Al a/if 


OOOOO'J 

c 

COMMON 

ioik-manijal input Variables 

aoarf 


000010 

c 


POLK-PRur.KAH F! AGS.cnUNTFKStCyHSTANTS 

Al'ARF 


0 0 0 0 n 

c 


S0LK-SFGI.'LFEP fill KFlORO 

Al'ARF 


00001^ 

c 


AHl K-ACUIUSI FILF RECORO 

Al’ARF 


0 0 00 1 J 

■ c 


r.OlK-CROPnINO FILE RElORD 

AP.ARF 


0 0 00 10 

c 



Al'ARF 


0 0 1? 0 1 5 

c 

linkaoe 

CALL AI)ARF(IFRR) 

APARF 


000016 

c 


JfRR= ERROR 10 ■ 

AP'ARF 


0 0 DO 1 7 

c 



AF ARF 


0 0 0 01 a 

c 

ROUTlNhS CaLLFO NOfJF 

APARF 


000019 

c 



AI1A/-’F 


n0no?0 

c 

LOCAL VAKIaPLFS 

Al'ARF. 


0 0 CG P 1 

c 



Al'ARF 


nooio?^ 

c 



Al'ARF 


OOOSOPi 

c**************'*************** ************************* ***««******«***f*Al'ARF 


oooo?** 

c 



“AFVA1I F 


oono,’'j 

c 



H‘LK 


0 0 010^6 

c 

COMMON 

OLOcK IULK-MANUAL INPUT parameters CONSTANTS 

li'LK : 

• 

0 0 01)?/ ' 

c 



II'LK J 


noojo'?» 


COMMON /IPLK/ 

IFLK 
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JIM 
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?1C1D(3) flACASF-* li>CASt,IHCA3E»IMCCtISANG.lREG»lZ0NEf IlFlLtf lOFILE* 
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IPLK . 


0000!v2 
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II'LK 
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c 
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c 
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c 
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c 
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c 
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JIM 
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c 
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c 
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c 
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c 

I vCASE 

CPoPi'-TNO CA.Sl NO. FROM input 

IPLK 


0 0 n 0 0 0 

c 

IPCC 

MAxIMUOPFRCf N| Cl Oi.iD COVl'K ♦ in-TO BE USED IN SEGMENT SELECT 

II'LK 


0 0‘Oo'ii. 

c 

l.'^ANG 

MInIHIJ.M ut(. RF .es sun aMuLE *!00 (l.N DEGHFES) (IH) 

II'LK 


0 0 n 0 '! 6 

c 
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HFolUH ID FROM INPUT dir " 

IP UK 


00000/ 

c 
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c 
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c 
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G 
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c 
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c 

1 Af ILF 

logical UNIT MU. FUR ALOUISIIION FILE 
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OOOOSi 

c 

1 ML INF 
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II'LK 


0 0 0.1 so 

c 

IPKI'I 
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OOOOM 

t 

irMlM 
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II'LK 
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c 
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c 

COMMON 
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Pl'LK 
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c 



PI'LK 
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COMMON /PBLK/ 

\ 
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c 

1 

OSf b 

St r.KtFL)? Sto.-ll NT ID 


SI'LK 




ouoi 57 


c 

ISIHN 

IPaININC. StGMFNT lNnlCATURlO = NORMAE*i«^TRAlNTNr.} 


seek 


o 


000 i 3» 


c 

ISKPIAY 

AruUlRlIiriN DAY FOR ISO ACOUISIT10NS-7ULU- 


SHLK 




000139 


c 



11 7ERU* FND Or Al E ACUUISITLOnS IN HF.CORD 


SEEK 




Q 0 0 1 '1 0 


c 

13PCC 

PERFEMI CLOUD CUYfR ? lo FOR IbO ACDUISITIONS 


5PLK- 


o 


0 00 1/1 1 


c 

MOLH 

Nti OF VF'HlCEtS IN 1 ME SRaTH TABLE 




■ . 


0 0 0 1 /! a 


t. 

inHOtR 

UPIGINAL ORDER OF ACCESS DATES AS READ FROM SEU, REF. 

FILE 

JlM 




0001 03 


c 





JTM 


o 


0 0 0 1 /I u 




CnhHOM /INt’lKh/ IWPfHR 


JIM 




0001 Ob 


c 

IHPFKH 

INPUT FHROR FLAG. SFT = 1 IN AilAKF IF THERE ARE ANY FATAL 

J IH 




000106 


c 



IrRuRS DtriCTlD ON THE INPUT CARDS BY AINIL 


JIM 


o 


000107 


c 





Jln 



il 

00 0 1 li-O 


c 





JIM 



0 0 0 1/19 


c 



IF THERE WIRE ANY TrPUT ERRORS* ABORT RUN. 


J 1 H 


o 


0 00 ISO 




IF 

( IeRN .LT. 0 ) GO TO 210 


JIM 

f 



0 0 0 1 SI 


c 





JIM ■ 




OODil S2 


c 



GO TO WRITE statement FOR ERROR 


AHAPF 


o 


0 0 03 S3 




IFat6R.GT.13) GUTU 210 


AIU9E 




000 I SO 




GO 

TO (10*20, 3o*90,SO,60*70*aO»90* 100*110*120*130) * TERR 


61 1 1 




ooovsb 


c 





AHAPF 


o 


00O1S6 



10 

HRlTf {lOFUmn CFNaM? 


Al'APE 


■ 


0 010 lb 7 




cnm ?oo 


AE APF 




noo isn 



It 

fORHAT (6H00I ♦37HCPOt>hINO FlUt HAS INVALID LAQFL NAME 

*2A0) 

A'‘ARF 


c 


0001S9 


c 





Al'APF 



i 

ooouiO 



20 

H»ITt ( lUFll E»21 ) SFNAH? 


Al’ARF 



000161 




GOTO Poo 


ahare 


o 


ouoloa 



21 

FOKHAT (bH00,! t3/HSFGRtFER FRt HAS INVALID LABFL NAME 

♦ ?A«) 

AHAPF 




000163 


c 





AHAKf 




noo 1 /.o 



30 

hRITL (lUFllE*3niSCA3E,lCCASF 


AHAPF 


p 


0 0 0 1 /-b 




GO 

TO l"U 


Jin 




000166 




FORMAT (6H003 »20MCROP)^INO INPUT CASE tl3.2SH NOT tOUAL 

in LA8EI Al'ARF 




OO 0 16 7 




C CASE ,13) 


APAHF 


o 


000168 


c 





AllARF 




000169 


«0 

HWIItnOHLE *01) ISCASFasSCAS 


AH A PE 




000170 




GO 

TO iDu 


J 1 M 


u 


01/0171 



01 

f ((i<MAT(6H0UO *20hSECRFFMl INPUT CASF *I3*25H NOT EOUAL 

TO LABEt 

Al’ARF 



i 

000172 




CCASf ,13) 


Al'ARF 



000173 


c 





AHA'IF 


u 


(1 0 0 1 7 (1 


•^0 

RiMU f lontr *M)XKnuH*ccnuN*scouN 


Al'ARF 




Q0017S 




GOIO PoO 


AHA'iF 




OQO 176 


31 

FORMAT {6HO0S * 22H I N V aL 1 0 COUN ? R Y- 1 NPUT = * AR * 1 OH CROPH TND= . A/l , 1 OHaI' ARP 


V 


006177 

* 



C IU.T.IU Fl k=*A/|) 


A>’AR1 

1 

n\ 


000 1 7 8 


r. 





Al'ARF 









B) 00 
>— I 

• o o 
03 o 
to 
00 
I 


S3 

a 


’o 

o 



1 

I 

I 


I ! 





1 

000 177 

f>0 

WPITI: nnFTLFf<>n 

APARF 


0001 HO 


cnio ?oo 

ABARF 



0 0 0 1 a 1 


FOK/IAT (6H006 ,3«HNn data SELFCT60 FOR ACOUISI FILE.) 

Af’APE 



c 0 n 1 a H 

c 


abapf 

0 


ouo 1 H .3 

70 

HPITt(inF,ILFt7j)lPLRK.lSNDA.V,_SCRN 

abapf 



000 tno 


cnin 200 

AHARf 



oooi'ib 

7l 

FOKhaT ( 6 HOO 7 ■ f IbHSFGRLFtR AGOUISITION DAY TOO LARGE »10»6H. 

maxaparf 

0 


noo 1 0 6 


c=«i3.07^'t Rrcosn=*F‘5.o) 

AIiADF 



0 0 0 1 P 7 

c 



ABAPF 



000 1 P.'j 

RO 

wimi-rinriLi ..«mcio 

apapf 

0 


fl(J01:P7 


GO TO l<>0 

J I H 



ooOlPo 

"1 

format ( 6 HOOO .37II1NFUT CARDS INVALID OR OUT OF SEO'.IENCE »3A2) AI'ARF 



noniol 

c 


ABARt 

0 


nurtio^ 

9o 

WRlTLdOHLF fOniSANG 

Al’APt 


e 

nuo 103 


GO TO I'JO 

JIM 


OUrlOiJ 

91 

FORMAT (6H007 ,'32HIf.'PllT SUN ANCLE LESS THAN ZFHO OH GREATER 

THANJIa 

0 


oooio'j 


C 9000 », To) ' 

J 1 H 



00 0 lO/., 

c 


Al ARF 



oun^‘»/ 

1 00 

wRlTtC lOFlLF.lOD lRCL 

ABARF 

0 


000 JJO 6 


GO TO 190 

JIH 



000 107 

lot 

FORMAT (611010 fSSHFFRCENT CLOUD COVER LESS THAN 0 OR GREATER 

thajih 



OUO-^OO 


CN loono* tl6) 

JIM - 

Q 


noo,;"! 

c 


AI'ARF 



0)0^0^ 

tio 

RPITE(irElLFilll) ISNOAY 

A!-A»F 



no<iao3 


GOTO 2oO 

AI'ARF 

0 


ooo;>oa 

in 

FOKMATlMinil .19hNU. PAYS IN STUDY stlR»13H» FXCEFOS 026) 

A"A»F 



000^05 

c 


Ai'A'JF 



000^06 

120 

' >.RITt f TPFILF. 121) T570HF. . ISSTK A , I SUBSf TSSLG 

SF I 1 

0 


oo>ii>’or 


GItTO 2o(l r 

AI'APF 


0 

OOOr’Ob 

121 

FOK''aT C6HU12 . 50HCR0PHIND0W TS HISSING' RECORD ZONE = »l3»Onh 

STRAAI'APF 


OUOtiOO 


CTA=,1A,11H SlJt)STR.MA = »l/i,09H St GHENTs , 1 6; 

AI'ARF 

V" 


0 y 0 1 0 

130 

1 wRITt ( I'FILI 1 131)5GHH,lS70tJF .! SS IRA . 1 SUBS . ISSF G 

Sf 1 t 



oooai 1 


lAHI U.= I A. SI. IN - 2 

• 



nooi.M 


GO 1 11 2nn 

AI'ARF 

0 


00 1 3 

131 

FnKM/vT((.HQ13 .l6HSLGRrFFH hFCORO fK-.OfOlH SKlFPtO HtCAUSt PEHCrAtiARF 



OuOielO 


CNT WIIFaT 7LR0-ZnNF=,13t9H» S 1 R A T A= , I 7 . 1 2h . SUBSTHAl A= , 1 7 f 1 0H» 

SEGHAI a'^F 



0 U 0 ^ 1 ‘j 


Ctll| = *l7) 

AI'ARF 

0 


000^16 

c 

• 

Al'A'IF 



0 0 ;n('l 7 

170 

INHrHRs 1 

JTM 



0 00 c> 1 () 


kf TURN 

J I K 

0 


000^19 

c 

TEST FAIAL OR nON-FaTaI ERROR 

A"ARF 


s 

OU0??O 

c 


APARF 


OOQt'Pl 

?00 

ircTPEFLOnEKR) ,Nt. 0) GO TO 210 


0 


ooo^?a 


knuHN 

ABARF 



000, ■■>?3 

c 

■ FATAL error txlT 

AI'ARF 



nuo,.>?ii 

210 

WRlTt (!UEILL»21 n3CKM,cCHN»ACRN 

ABARF 

0 


OOOcVS 


STOP 

AIURF" 



oOOyVo : 

211 

format (6H097 ♦33HPP0GRAM ABOHTEO. SEORFFER RECOHn«»F6.0»ltiH> CRaI'aRF 



0 00t!?7 


COPr'INO RtCUK0=»E6.0« 17Ht ACOUISI RECUR0=*E6.0) 

AI'ARF 

0 


00(liJ?» 


EMU 

ABARF 




k? 


28234-6028-RU-00 
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o 


<* fLT ACRPT,t,760«?6, So3«5 t 1 



0 0 0 0 0 1 


SUbt/OUTlNF ACRPT 


ACkPT 


000002 


o 

ooodoi 

c 

. . . ■ 

, — : ■ - ■ , _ ‘ 

. 

ACKPT 


noooo'J • 

c 

KOUTlI-lfc 

ACRPT 


At KP r 


OOOOOS 

c 


- -'■:■■■■ 


ACkPI 

G 

000006 

t 

PIIHPOSE 

print ACOUiaiTTON RtPCRT-ONt KFCDKO PtP ENTRY 


achpi 


0 0 0 u 0 7 

C 




ACki’I 


00(1 00b . 

C 

LIUKAOf 

CALL ACHPT 


ACkPT 

O 

000009 

C 




AfRPT 


0 00 0 I o: ; 

:\V.C. 

RnUTlMES CaUUD BINRCD-CONVEKT binary TOACKPr 


000 oil: 

. C 




ACRPT 

o 

00001,2 

c 

incAL vahiablfs 


ACkPT 

n 

oonnii 

c 


UMAX* NO LTNFS TO PHTNT 


ACkPI 

U 

OOOOlO 

c 

‘ 

It wiNunw Index 


ACliPT 

O 

nuouib 

c 


J,‘ ALOUISlIlON WITHIN LINE INOfcX 


Al kPT 


0 0 oy 1 6 

c 


K * no LOUP INDEX 


ACHPI 


0U0Q1 7 

c 


laUt) ,CUHktNT ACnUlSITION INDEX FOR HINOOH ONE 


ACkPT 

G 

0 0 00 Itt 

c 




ACkPT 


000019 

********** r ***$**************************** ft**** f *9*** ************* AT npj 


0 0O0r'’0 

c 




ACRPr 

O 

00O021, 

c 


' ; ■ 


ICLK 


00 00 22 

c 

COMMON 

niocK julk-manual input Parameters constants 


II'LK 





. 





u 


' 


-1 1‘ L ^ 

o 

000U?9 


COllNUN /IHLK/ 


11 H.K 


000025 


IXiTTLdP) tX!6ANr,fXICUI|H,IWTTL(16) » 


JiM 


000026 


?inn(5) .lACASf ,ISCASt,IwCASE»lPCC»lSANC*lREr.tTZONF*IlFILt» 

lOFlLEt 

IBLK 

o 

fiU0u?7 


3ISHLF , tCFUfc f lAULF fiNl INt , 


HU K 

0 

ooo()?a 


4 IPMPI t ICKI’T 


li'LK 

i 

OOOyP9 


Lnt.’KAl. IPHOtflCKPT 


IBLK 

o 

000050 

c 

NAME 

DFsORIPTlDh 


II'LK 


000051 

c 

xittl 

HtpLHT CASE URlHUEn PAGE TITLE FROM 1NPUT(12A4) 


U'LK • 


OUO'652 

c 

XISANC. 

HINIIHIIM SUN AMDLE IN RADIANS FROM INPUT 


IBLK 

V 

000053 

c 

XTCOUN 

Ll'Ul 1RY 10 FKOH IflPljl (A9) 


H’LK 


000059 

c 

IKITL 

Cl'ul WIIil)0;i nUES, TiTlF FUR FACH HlNDUW OCCUPIES B 

WORDS 

JIM 


000055 

c 


Al ? rilAHACTt HS PFK wnxD. 


JTFi 

o 

0000^6 

c 

If II) 

COlI'MNS 75 -MO OF I;NPUT card 3Aa 


IBLK 


00005/ 

c 

I aCAoE 

ACrjUISl file CASL ND. FROM INPUT 


JFLK 


0UO05B 

c 

ISCASF 

SFgRLFLR case ND. fPDM input 


IBLK 

o 

000059 

c 

.JWCASF 

CIMPriINP CASE NO, FROM INPUT 


II'LK 

1 

OOOQOO 

c 

IPCC 

MAXIMUM PFKCFNI Cl OuD COVER ♦ lO-TO BF USFO IN SEGMENT 

SELEC1 

IBLK 

1 

OOOQOl 

c 

ISANl, 

ItlNlMlIH DFGPLFS SUN ANl.Lt AlOO (IN DECREES) (14) 


IBLK 

o 

000002 

c 

iPtC 

KFCtUN ID FHDtl IN|>U1 (I 1) 


II'LK 


oonpoi 

c 

„1,7U>)F 

ZO.\F ID FROM INPUT (13) 


IBLK 


0 on ho 4 , 

e 

IIFILF 

LC'CTCAL UNIT NO. f UR CARD INPUT 


II'LK 

€• 

000y>i5 : 

c 

inF ILF 

LIM-ICAL UN/T NO. fUR RtPoRT OUTPUT 


IBLK 


000046 :: 

c 

tshlf; 

LOl.ICAL UNIT NO. FOR SECkFFFK OATA FILE 


IBLK 


00:0007 

c 

icF ilf: 

LOc.fCAl. UNIT NO. FUR CkOPWINDOW FILE 


IBLK ' 

€j 

OOOOOB 

c 

lAF ILF 

LOl.rCAL UNIT NU. FUR ACOUlSTIION FILE 


HLK 


00O009 

c 

INUnF 

NO, LtNFS PFR PAGF 


1 BLK 


OOOij' 0 

c 

[PPPT 

Pk'uCLSSInn IUAU krPoNl flag (T = PklNT REPORT) 


HU.K 


ooonM 

L 

ICKIM 

ACi.illSiriON (CFOP HINDOW) RFPOHT FLAG (T=PRiNT REPORT) 


II'LK 

1 

ootioo^ 

C 



• 

PBLK 

1 

000053 

C 

COMMON 

BLOCK Plilk-PRUGkAH COUNIERS AND CONSTANTS 


PI'LK 

i> 

000054 

c 




PBLK 


0bot,S5 


COHIUJO /FOLK/ 


H LK 


rtoy'.b 


IXP'oPM 150) f IFF TFf IPTypt.lPtHH.lHCDI 15) * IPWKK ( 1 50 ) 1 1 TEN{ S) • 


PI'LK 


0 (•!'>!' 1 


piiMfif.nii.n’ibf 


bulk 




ll'MCtt. ll’Mif ■ 






tv 
oT 00 
ro 


era 

n 


■ -V 

o 


w 

I 

o 

0 
tv 
00 

a 

1 

o 

o 



. p 

000119 

C 

rOHDER original OUDLH OF ACCESS DATES AS HEAD rHoil SfU. REF. FILF. 

JIM 


000l?0 

c 


CHLK 


0 U 0 1 ? 1 

c 

CIJHHUN HUicH Ci3LK-CH0PwIND HEADER AND DATA 

CHLK 


non 1 ?^ 

c 


CHLK 

o 

ootn?i 


COHHUN /CHLK/ 

CHLK 


ouoipu 


ICCRNfCpf-ANH, )»CFNAN2(2)tCC0UN» 

CFLK 


nuoi?s 


?intASr,ICWPH,.lCKr(;»ICi!nNF»ICSTRAtlC3IJBS»lCL0H{fi)fICHl(f) 

CHLK 

o 

ooni?6 

c 

name DfsrHTPTlOtg 

tPLK 


00 n 1 ? / 

c 

CCHN CUrRENI (ROPwTND RErURD NO. 

CHLK 


0tMlU’(t , 

c 

CFHAHI FIlF NAHfi . ir.H0PWlNDt(2A'I) : • 

CPLK 

@ 

0 0 (i I 9 

c 

CEHAM2 LAlilt file HAHt-iillST KATlLlH CFNAMl 

LHLK 


nuono 


croiiw et'OMHIRn CDUNThY ID U4) 

cm K 


0U01\l 

^ "C 

irCASt CFtlPHTtlD rASE im. FRUH LAREL 

CHLK 

0 

oooi'^a 

c 

ICHIND NO. Ur CROP hlNOUwS (rt) . 

LHLK 

R 

OoriTii 

c 

ir.REo LPoi’fiiNn RtnioN n 

Ll'LK 

1 

noo i,tu 

c 

lC7D^r LI-oEi^'TNri 7.UNL 10 

LHLK 


noons 

c 

irSTRA CRliPnlKh STRATA lO . 

CHLK 


coo no 

c 

ICSUuS CRllt’ri TNI) SIIHSTHATa ID 

CHLK 


OUUl 1/ 

t 

ICLOVi STaH DATI of ti WINDOWS ZULU-RELATIVE -JAN 1950 

CHLK 

o 

noona 

c 

ICMI STqP date of 0 wtNdU'WS ZULU-RELATIVE JAN 1950 

COLK 


ouon? 


DIMFNSitiN llL!;Uni)fJ!HAG(6l) 

ACKPl 


0 0 D n 0 


Ef'UTVAi.ENrL (IPwKK.JIl'Ar.) 

ACKPF 

o 

0001 ni 


DAIA 11.1 hC/lHiflillf nil tlH f lIlIflHL.tHLilMFflHRf IhAflHL/ 

Al RPl 


nohn^ 


DIMENSION MU'IKR) 

JIM 


OOOI(»3 


DATA nONF / 1IIN« IHO, IhN* IHt / 

JIM 

c 

0 0 n 1 (1 a 

c 


JTH 


0 0 n 1 li s 

c 

TEST last tike ENTEREOflF YES* PRINT STATISTICS 

ACRPT 


ooniob 


IFnPFTF.LT.O) GOTO 50 

ACRPT 

o 

on ) n/ 

c 

US? RFHORr wanted 

AFRI'l 

1 

0 0 ij 1 n B 


IFC.NMt. ICRI’Tnu TO 60 

SI I 1 

1 

0 U 0 H 9 

c 

COMPUTE LINE COUNT 'FROM MAX NO, SEGMENTS SFLECTED 

AC'KPT 

o 

oon i',o 


NMAXs) . 

ACRPT 


0 0 fJ 1 M 


on S 1 = 1,9. 1 

ACRPT- 


oooifia 


J- (lAcNTl (!)♦ n/'l 

JlH 

9 

OOOl'ii 


IF (NMa^.FL.J) goto 5 

ACRPT 


OUtUSiJ 


NMAy=J 

ACRPT 


nun 1 ns 

5 

1 LONTItJUF 

ACRPT 

o 

000(1 S6 

c 

TEST PAGF HEaOFKS REOUIRF.D (NO. LINES ON PAGE TOD SMALL) 

ACKPl 


noo;is7 


lANl IN=I ANLIN-NMAX-1 

At RP? 


ouonu 


IF(Tahi tn.gf.O) goto 10 

At RPl 

0 

nonis9 

c. 

print page headers* increment pace, rfset line count 

ACRPT 

fl 

000 no 


lANi. I K= inline - a , 

JIH 

ii 

oooni 


IAPAG=lAPAO* 1 

ACRPT 


0 00 n2 


KRlTtllCF ILF.200) I AC ASE * X IT T L , I APAG 

ACRPT 

i : 

oooni 


RRlTt, (TOrilnP'lO) ( I,I = 1*9 ) 

JIH 


non no 


r HHlThdDMLF ,2b<») 

ACRPT 

o 

0 00 n'j 


WHITEdOFTLE ,2oii) 

ACRPT 


non If (> 

c 


ACRPT 


oonn/ 

■ c 

INlilALiZE ElHSr LINF OF SFGMENT AND PRINI 

ACRPr 

0 

ouiMna 

c 


ACRPT 


0 0t)iVi9 

10 ISUIISO 

ACRPT 


oon i 70 

c 

INITIALIZE Ar.UUlSmON POINTERS TO BLANKS 

ACRPT 

■‘ t 

Si/ 

nooi 7 1 


DO 20 j= 1,60,1 

At RI’I 

s i 



JMTAG(J) = M1C0( 11) 

At HPT 


OuOl Ti 

?0 CONTINUE 

ACRPT 

■© 

000174 


IFCISNaC.ME.O) F.OTU 2? 

AC HPT 


000 17S 

c 

Mu ACDlUSlTinNS, PRINT NULL LINF AND EXIT 

ACRP T 


OOOj/6 


HHITLf 10FILF,290) raSfcG 

ACRP I 

■ N 

: 

Ot<«177 


GOIO 60 • ■ 

A t RP 1 


OUfl 1 7fi 

c 

U.SI ir AMY WlNUOH HI UUlRtS NONl PR ALL ILLFGAL 

JIM 


Ei 
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- ; ■ 


: ; ■ ■ ' ■ - 



I 

ooni7V 

C 

PHiNTth OUT UNDER SELECTED ACUUISITIONS. 


JIH 

1 

OOOlflO 

22 

irLr,=() 


ACRPt 


0 00:1 ft 1 


on 25 1 = 1 *4*1 


ACRPT 


00ft|P2 


j=i5*(t-n + i ..... 


ACRPT 

OOOIfti 


IT ( lArUtdJ .NE. 0 ) GO Tu 25 


JIM 


noolpu 

C 

stT UP 10 pktnt none 


JlM 


000 IPS 


on 21 k=1i4 


JIM 


000 IP6 


j1i‘im;<j)= ndnE(k) 


JiH 


0 0(1 IP/ 

21 

J= .1 4 1 


JIM 


0 U 0 1 P !j 


GO Til 2'-> • - 


JTM 

irO' 

o6o|pv 

23 

IE { lACNTLfll .NE. 0 ) GO 10 25 


JIM 


OUfllOO 

C 

set up TO PKTNT all ILLFGAL 


JIM 


000191 

. 

00 2-1 K=l* 11*1 


ACRPT 

-Q 

000192 


j)slLLEO(K) 


ACRPT 

r‘ 

0 U 0 1 '/ i 


J = J41 


ACRPt 

0001 914 

?a 

CONTI. f'Uf' 


A( «PI 

[iO 

oonio'j 

25 

tONTlMur ' 


ACRPl 


0 0 0 nil 

C 

set up next line for each of 4 HiNPOKS 


ACRPT 

1'. 

'000197 

50 

00 40 I=l*4»l 


ACkPl 

G 

000198 


L=ISUH4(25A(l-n) 


ACRPT 

1 ^ ' 

00019V 

C 

EAru KINDO'W hay HAVE EKOH 0 TO 4 ACUUISITIONS 


ACRPT 

t' 

OOftijOti 


00 55 K=lt4tl 


A.'RPT 

lO 

oo'it:,ri 


J=(15*(l-n)4C47(K-tn41 


A( KR t 

' 

0 0 Or 0 2 


IF ( (ISUOtK) .GT. IACNTLCI) ) GO TO 40 


JIM 


000205 


L = L+1 


ACRPl 

o 

OOOPOO 


C.'LI, HlMUro (IaPNT(L»1),3»JIMAG(J)) 


JlH 

^ ■■ ■ 

000208 

35 

continue . ■ 


ACRPt 


000208 

flO 

cONTiruE 


AC.RPI 

o 

00020/ 


l.SU0=!sUU44 


Af Rt'T 

8 

OOOr’Ott 

C 

TE.ST HHST LlNp OH SUbSERUENT 


ACRPT 

000209 


IF (in O.Mt-.O) GOTO 45 


ACRPl 

o 

000210 


IShFLGs IHS 


JIM 

t,' 

000211 


IF ( IPTYPE ,FU. 1 ) iRbFLGs IHh 


J IH • 


0 0 0 1 2 


HOITF ( TUF 11 F t2/0) I3WFI G » I SSFC* ISNAC 1 1 ACNI ( 1) » ( .UPAGIL) *1= 1 * 1 

s 

)JIM 

'O 

0002)5 


1 f lALl;I(2)f( .llMAOdJ ,L=l,6f5u ), IACNT{5).{ J IHAUTL ) »L= 5 i » 4S 

) 

J I M 


000214 


2 t lAcNUnitl .HHAOd. ) ,L = «6f60 ) 


JiM 


00O2IS 


1FL0=1 


ACRPT 

:=o 

0 0 0 2 1 6 


GUIO 4». * 


ACRPT 

‘ 

00(>2I/ 

c 

WRITE SUIIGFOIIEnT LINFS 


ACkPT 

h .. 

000210 

45 

WRITE (lUFlLh»2«in ( JlHAG(LTtLslt60 ) 


JIM 

o 

0002 IV 

46 

NMAX=MHAX-i 


ACRPt 

■ B 

000220 


ir ( N'HAX ,U. 0 ) GO TO eO 


JTM 

000221 

C 

mlank out acouistion pointers for next print LINF. 


JTM 

‘ Q 

00b2?2 


DO 47 L=1»60 


JIM 


o0O225 


JIHAG(L)= lOCDCtl) 


JIM 


000220 

47 

CONT lN|ir 


JiM 

O 

O002?‘j 


GO TO 30 


J 1 M 


000226 

C 

•* 


ACRPT 


00022/ 

C 

Wl^llE StATISTICS 


ACRPT 

O 

000228 

C 



ACRPT 


00022V 

•50 

Rf’lTt (IOFTLF* TOOMCF'U 


ACRPl 


o.r02'.0 

60 

HFTU69 


ACRPl 

0 

OOP.' U 

200 

FOhUAT (fttliCAsr- tI4*27H SEGMENT ACOUISITION DATA tl2A4|l6H LPP 

.5 IMF 

5 

r.oo;M2 


IUIAIIOn fSHl’ACt fl4) 



OU0255 

210 

FOKMAT(lllOtI7X,fthCUUNTHY » a 4 t 2x t 7HREGT0N » 1 5» 2X *5HZ0NE t 1 3 . ?X » 7HST AC KP T 

O 

01)0254 


CRAIA f I'lfPXt lOliSURSTKAlA »14) 


JIM 


n0O2',S 

?(|0 

format (//I 2H()')/W SI I'HrNTf ?x»4( 1 5((M»»T4 mNin)H»l2,7M ♦»♦♦♦♦ 4 2X) 

) 

J I M 


000256 

280 

FOHMAT(5X,8IIIO-Jin Al » ?X . 4 ( 5‘l 1 0 I ,11. » c'Xi I'.lSET tC IFOiVX)) 


JIM 

•u 
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1 ouMAi r 1 (IV ,4( :/tiAi ct ;.s . i2iiAC.jUisn lot.stsx)/) 


Jill 


001 2 <8 
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JIM 
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000200 
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KIHMAT( tM0*l9t9M-000t3X,^IINnNn 


JIM 


000201 
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# FLT AFlNOft,760<l?6t 5o3«7 t 1 


oonool 


SUBROUTINF AFINO 

AFIND 

00O0P2 


C **««*«?*« *«>«:*««*»«««f««**««***«««**«9*««*««*«*«*«****«««M**M**MM«»AFIMD - 

OOOOOi 


C 


Af- IND 

OUOOf « 


c Hour pit 

aftnd 

AF II4D 

n 0 1 ) 0 n b 


c 


AI IND 

000006 


C P'lHPdSE 

THIS KOUTINE SFLECIS AC(JIJ 1 SI T IONS FROM A SHGRtFER DATA 

afi-nd 

p 0 n 0 0 / 


C 

RtruRD HASH) UPON 

AF IK[) 

ooooou 


c 

• Cl Olio CnVpK' LT tfAXlHUM 

AF Jl.l) 

0 0 p 0 p V 


c 

.SUN AHULt OT MINIMUM 

AF IND 

P 0 0 0 I 0 


c 

• ACHUlSITInN DMF within CROP HINOOH 

AF 1 ND 

OOOOl 1 


c 


AF INy 

000012 


C LINKAGE 

CALL AFINO 

Af IND 

nootiii 


C 


At INI) 

n 0 0 C 1 '4 


C tnCAL VAHIaBLFS 

AF IND 

OOPClb 


.C 

- ; ■ * 

AF )N0 

000016 


C 

; I* rURKENT KIHOOW NUKlitR 

Af INO 

oono 1 / 


C 

“ ■ Jt CURRENT AC'IUISIIION NUMBER • 

AF IND 

oQonio 


C 

Kf TNntX INTO WINDOW OATE-EITHER SPRING OR HlNTFR 

Af INI) 

0 0 n 0 1 V 


C 

IHPAYjRtLAT IVL ACollISITIOM UAY FOR PRuOUCITON VtCIOH 

AI PH) 

oooo?0 


c 

NACQ« NU. ACnUrSIIIUNS Cl'KRENl RtNDON 

At IS'D 

ooPobi 


c 


AI INI) 

000022 


C HOUTlMtS CllCFU 

AI INI) 

oooi)?.i 


C 

AUARF-FROOP RUUTInE 

AF 1\’D 

noo;u2<4 


C 

0 7-HF.FFRFNCt UAIF OUT OK HANOt 

AF ]Nd 

OOn;o2b 


C 


AF I ‘JD 

O0OO?(» 


««««««««»#***««*•««•»• 

OUPo?/ 


c 



ll'LX“ 

ooo:o2)l 


C CfiNBUN 

0L('CK IOLK-HAMDAL INPUT PARAMETERS CONSTANTS 

1£-LK 

00O«?9 


c 


Ii-LK 

nuno'<o 


CftMMD'l /Il'LK/ 

Il'-LK 

00003J 


IX im ( 1?) .XtSANOtXlCUIlN, lHtTL< 16) , 

JIFI • 

000013 2 


?Klrn 3) ,lACA5F.IbCASt,IHCA6i;»lHCC»Is3ANC»lRlOf I20NF»IlFltt»lnFlLE» 

II'LK 

OOPO^i 


31.3ULF ,KKUF;»IAHLI *TN| PU» 

JI-LK 

0 0 0 1) 3 U 


ail’KPr , ICHPI 

IPlK 

0UO03b 


inpic/i, iPHPFfirHp? 

JPLK 

000036 


C NAME 

1)1 SCRIPTIUn 

II'LK 

OOP'03 1 


C XlTTL 

KfR'lNT Case ORItNTtn PAGE TITLE FROM INPUT(12A4) 

INLK 

000030 


C XT SAMP. 

-'iimuihim sun A’ii.1 l in Radians from input 

II'LK 

n 0 no 3 9 


c xitnuN 

CI'UMTPY id from InPUI (A4) 

jhlk 

0 00 0 '10 


C iWlTt 

CPul’ WINoOR titles. title for FACH HINDOW-OCCUPIFS 8 WORDS 

JIM 

nOOoO 1 


c 

aT 2 CHARALTLiIS PfR ViOKD. 

J 1 M 

00P002 


C ICID 

[DlUMNS 7b-60 OF INPUT CARD 3A2 

IML.K 

p u 1' no 5 


C TACASF 

AHjIllSI FlLf FAH (in. FRUM INPUT 

IPLK 

0 0 0 0 0 0 


C 1.3CASK 

SFC.RLFtR Cask no, FRUn INPUT 

IPLK 

0 0 0 00 b 


C IWCASF 

CHlPnlND CASE NO. F'POM INPUT 

IPLK 

000006 


C If'CC 

MAXIMUM PFurt'ir t| Ulil) lOVFH ♦ lO-TO nr 1I5F0 IN segment select 

II'LK 

0O00O'7 


C ISAMG 

minimum degrees SDN ANGLE »100 (IN DEGREES) (14) 

IPLK' 

OOOOOO 


C IRtn 

HHlTUtl lOHROM INPUT Cl 3) 

PiU.K 

0 0 n 0 0 9 


t I7UME 

2n.N!- ID FPU.M INPUT (H) 

U’LK 

nopo'-o 


C iniLF 

LOf.rCAL UNIT Nlj. FOR CARD INPUT 

II'LK 

noon' 1 


t iiif- ar 

H'l.lCAL Uiu I NU. FUR RLOuRI UUIf’UT 

II'LK 

0',’0uN2 


C Ifih ILF 

LOgILAL UNir NO. FOR SLGKtFF'R DA(A FILE 

lliLK 

OOOObJ 


C ICFTLF 

LOgILAL ONlT NO. FOR CKOPN I NUOw FILE 

II'LK 

000(134 


C lAFUr 

LOGICAL UNIT NU. FOR ACOOISMTUN FILE 

II'LK 

on Oft'.') 


c rn. iitF 

UP. LINES I'm PAl.f' 

II'LK 

P!iOtl'.6 


C II’HI’I 

PHunSSIMG 1 UAI) UFPnKT FLAG (T=PHINT REPORT) 

II'LK 

in I'll', / 


C If KlM • 

Arijuini I ION (ti.’op mniiuR) mipoki hag (TsRkint RtRuRn 

JI'IK 

no ill) Ml 


c 


PI'LK 
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1 

OOOO'.'J 

c 

COMMON 

MtncK POLK-PMOOHAM COUNtERS ANO CONSTANTS 

PMLK 



000060 

c 



POLK 



000061 


COMMON /PMLK/ 

1'MLK 



000062 


lxPWMK(iSO)f TMF1FflPTYPE,lPtR«.lHC0(lb)»IPWHK(150)tlTtN{5)* 

Pt'l.K 

o 


0 0006i 


21PLFLr.( 13.7 tlProF 

PI'LK 



000060 


1 noiCAL IPtiiF . 




0UiM)6^ 

c 


■' 'b 

Pt'LK 

o 


0 0 n 0 6:6 

c 

NAHF 

01 3’OKIFTIOm 

PI’LK 



00006/ 

c 

XOWP|\ 

FlOAUNr. POIH'T WORK APEA-niMtNSION IbC 

PMLK 



OU6060 

c 

IPFTr 

FlU.SJ rrtlF FLAG(0 = FIHSI lIMEf I =SlUi5tOUENT t- 1=L AST) 

PPLX 

6 


Ou006<> 

c 

IPIYPF 

TYpF KHfAl (OiUNIOtMl into* IShlNTtPt bsStNlNG) - 

JUl 



OOiOOTO , 

c 

IPtHK 

AColllSIT in.-j UAY W|itN IT tXCtLDS MAX IMIlMtERHON PR, INI) 

PMLK 



00l‘)0/l 

' . c 

IOC!> ■ 

Ill'Ll FPIIH AHKAY/ 0 / 1 /2/i/«/b/6///a/9/ /-/O/*/*/ 

PMLK 

o 


0000/2 

• c 

lU i 

P(IV.1KS OF U'M (i.lOflOO. 1000,1 0000) ii: 

PMLK 


rt 

OOiJO/i 

c 

IP«./K 

INTFCIK WDkK Apt A-urHFNSlON IbO 

PMLK 


ii 

OO.Yi>7« 

c 

IPl'Il 

tM) or FILL H ag ( 1 i>uf=fni) ntt) 

PMLK 

o 


0 0 0 0 7 0 

c 

IPtf^LO 

fatal tRpMK Hag fmi; fpHuh i-i3 (TsfaJal) 

PMl K 



n u A i_j 7 (> 

c 


— 

smlk 



00007/ 

c 

COMMON 

IlLOck Sl3LK-S£GPtFtH FILL hF.AOtR AND PATA KtCOHD VARlAbltS 

smlk 

o 


00 00 7 B 

c 

’ 


SPLK 



0 0 Op 7 7 


COMMUN/SDl K/ 

s"i K 



poop HO, 


ISf HM.Sf Nf,Ml (21 tSFMAM2f 2) f 51 f 6L tSCOONtSPCSWf f>PCI'<W,5SANGUS0/ t 

bl’LK - 

:b 


0 U 0 i; (1 S 


2ISSrAS, lSt ATi;»]5NnAYf tSfJAC»ISI<tG*IS/0Ot»ISbTKAf 

SMLK 



0 0 I D >'2 


USUPb, ISSM.t I-blNM* ISpUaY t I'iO) t ISPCCilbO) .NVtM 




OOOOPi 


'IftOPOlKUSOlt^KOAYllbpJ 


o 


0 0 0 0 f « 

c 

UAMF 

uisriMPTioh 

SMLK 



0 0 Q 0 0 b 

c 

SCMN 

SFCPtFER rUHRt.NT RtrORD NO, 

smlk 



000006 

c 

SFNAHl 

SFGFtFfcP FUr f.AMF PH9101 YPFAStGRfF'EK* 

SMLK 

o 


0 U 0 0 H / 

t 

SFNAM? 

bFol'HtR Fill MAMP FROM LADFL 

smlk 



0 0 0 0 0 tl 

c 

snPL 

IFAILI R ID */Z/Z» 

S! LK 


I! 

OOOOH7 

c 

sroiiN 

6Fr,H 1 Hv rOONlKY TO (F6.2) 

St'LK 

o 


OOOu'.’O 

c 

SPCSH 

I'lprtNT SPHII.G HHrAT(Fb.2l 

smlk 



000091 

c 

Sf'CWK 

PFliFtl.T Kimtl! :WlirAT CF6.2) 

J T M • 



000092 

c 

SSANI, 

si'li AMGlFJlM RADI AND) 10, R t ACM OF ISO SEGMENTS 

sMlk 

0 


oOOOOi 

c 

ISSTAS 

blGFtFLl! FaGI l.n. FROM 1 AMtt 

SI'l K 



0000"0 

c 

I lOAIF 

bFoGtFbR RLFtRLMCF DATt-ZlllU- 

smlk 



OC'OOOb 

c 

jsmday 

NO. DAYS In STOIiY (i-‘I26) 

smlk 

o 


000006 

c 

I5N4C 

NO. ACUUlSlTinNS !N RECORD' (O-,!>'^0) 

smlk 



OOOOO? 

c 

I5H1 r. 

blC-PlfCR REG I ON ID 

sm-lk 



OCOJOU 

c 

15Z0I.F 

6lG"tFCR /Ol.t 10 

solk 

c 


00 0009 

c 

ISOTpA 

SFGl'tKhR SIPATa Id . 

smlk 


D 

0 0 0 1 0 0 

c 

IbUitS 

sicPLFeR suhstraia to 

smlk 


t: 

0 U 0 1 0 1 

c 

I56FU 

blGltrtR Gtt.iiM.T TO 

S‘U,K 



000102 

c 

ISlPN 

1 Raining SUiMlNT !NnlCATOR(OsNORMAL*l = 1HAlNTNG) 

SMLK 



nooioj 

c 

iskoay 

AftlMl!' IT iOn UAY FOR ISO ACUU I S 1 T inNS-ZULU- 

SMLK 



ouoioy 

c 


IF Zl.RU, fcHD OF ai.L AroU I S 1 T I OtlS TH HFCPKO 

SI’LK 

m 


oooiob 

c 

I-SPCC 

Pf RGU.I CUi'IU LOVIH ♦ 10 FOR lb( ACGUISHlUNS 

SMLK 

r ■ 


000106, 

c 

NVtM 

NO OF VFlllaLG IN iHt S'RAIH TAUlt 




00010/ 

c 

lOMOfcH 

original ORfitR OF access OAttS AS REaO FROM SEw. RtF. FILE 

JIM ' 

b 


0 00 loa 

c 



cMLr 



000109 

c 

COMMON 

IILOCK CiUK-CROPhInu hLAOER AMU OAIA 

LI'LK 



006 1 1 0 

c 



CMl K 

o 


0 0 -i ! 1 1 


common /(.PLK/ 

U‘t K 

, ^ • 

0 

0 0 II 1 1 2 


1CCHN,(’! NaI' 1 (2) f rH)AM2(2) tCCOUMt 

lmlk 


1 

000 1 1 i 


aiccAbr .icHit'O* iCKFG* ir/oiiF f itSTPA*ir.suos» ta ow(H).icHUfl) 

CMLK 



0 0 0 1 1 (I 

c 

NAMF 

OISFHTFIIOn 

cmlk 



0 0 0 1)') 

c 

CrMN 

ciiRi’iui (I.'oRhTnd RLruRO no. 

LMLK 



pf 0 1:1 b 

c 

CFNAMl 

Fill GA'-'t vCROPpInU* (2A'i) 

LMI K 



O' PI i 7 

c 

f roAM’ 

-lAhM I* U f NAIU.-MIIST M,\KH FFNAMl 

LI'l K 



ru r 1 1 U 

c 

r cjon 

U.(ilV<lN'i ruMnTRY lu (A'I) 

Ll'l K 


o S 



»NtW 
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*W'— - 
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000119 

c 

ICCASF- U'oPrtlND CASt NO. KrOM LAHtI 

CI’LK 

© 


000I?0 

c 

irWtNn DO. UF CHOP WINDOWS 111) 

tl'LK 



oooi;?i 

c 

ICHFO CDoPWlRD PLOIDN Id 

CHLK 



0J0I?^ 

c 

ICZONF CyoPHIND 7l)Mt ID 

Cf'l.K 

'p 


0UOl?3 

c 

ICSTnA ORoPWlUD Sri/ATA ID 

C'M.K 



000 1 -~'l 

c 

ICSUllS CRuf'WllJD SuasTkAlA TO 

Ct'LK 



0001 ?^, 

c 

ironw staih oatf of « windows zULU-stiAi fve jan i<»bO 

LBl.K 

0 


000 I ?6 

c 

ICHI Sl(lP DATF of 6 WINDOWS ZIILU-lIhLAlI VE JAN 19bO 

COLR . 



no 0 1,-'/ 

c 


AHLK 

. 


000 1 <>11 

c 

common ntncK aui k-acudisi file and wlpuRI vakiadles 

ARLR 

:0 


OUOlPV 

c 


Al l K 



000 no 


COHNUC/Atlt K/ 

AI'LK 



'oooni 


1 ACHMf AiNAM(?) ,AFTRL*AI,'Ar0{y26) f 

AI.LK 

0 


ooon«i 

• 

2IACNI f 4) « lAToT, IAPNU?b,4) I lAPAOflANLINflACHU l«) 

JlM 


B 

0 0 n m 

c 

namf uisrHiHTinN 

Al'LW 

iQ- 

001 1 v» 

c 

ACUN . CIJrHENI wrcOWD NO. 

APLK 


cuni'Vj 

c 

AFHAM LAiifL CIlF NaML ♦Arouisi ♦ 

APLK 

i\.' 


OuOHO 

c 

AFIRL ll.'ATLrK ID *n.U* A') 

• AHLK 



noon/ 

c 

ANACU no. or ACDUIbinONS oFLECTEO for EACM-OF Hih DAYS 

aplk 

:0 


000 nti 

. c 

lACNI IniAL NO. OF ALCtSSrS FOR EACH OF 4 WINDOWS 

JIM 



000139 

c 

lAlOI TolAI NO. OF aLUIUSITIONS FOR AU U WlNOOrtS 

AHLK 

!q. 


0 00 no 

c 

lApNT IMl^tK To SFoPtFlR ALOUlSniON (1-150) THAT IDENUMES 

API K- 



0 0 0 1*11 

c 

A SUtriFO SH.MLNT. 1 APnT(I.J)s window I IF'KOUr.H <i. 

Af'i y 



0 00 nc’ 

e 

lAPAG AcOUTSniOf) RII’ORl CUkRLNI HAbf MUMllFR 

ahlk 

o 


000 1 «3 

c 

IANLIN AcPUTSITION RLPURI Ml. LINFS KFMAININO CUHRtNI PAGE 

AHLK 


000 no 

c 

IAC.NTL mo. or ItOAl. AOOUISUIUNS SFLFCTtO FuR FACH OF /| WINDOWS 

JIM 



0 0 01 0b 


OIFlI.N.SlON KAp.NIMOCI) 

AF JND 



0 0 0 1 0 6 


LDUIVALFUr.t (KAPNI ( 1 ) f lAPNI ( 1 » 1 )) 

SF 1 1 

Q 


0 0 0 i 0 7 

c 

FIND NO.ACOUlSl IIONS IN RtCORD 

AF IND 


t 

000 n3 


I5NAC=-() 

AT iND 


0 0 0 1 0 9 


1)0 5 1=1 f no 

AF I ND 

0 


OUOl'iP 


IF(ISRoAY( D.EO.O) GOTO 6 

AF no 



0 0 0 1 S 1 


ISNAC=I 

AFINO 



0001 

1 

5 CmiTlNuF 

AF It.'D 

0 


■ OOOl'ii 

c 

, ZERO .5LGHFRT POINTER ARRAY AND TOTALS 

AF I VU 



0 0 0 I b y 

( 

h 00 lu i=l»ioo 

AF no 

o 

; 


0 0 0 1 S 'j 


KAPN1(I)=0 

AFIND 


noo ibb 


10 CONTlNur 

AF 1*JD 


0 0 0 n 7 


IAinr=o 

AF IND 



n o o n. a 

c 

INIIIALIZE CROPWINO WINOOH INDEX, KsO HTNTERt SPRINGJiH 

'O 


0001 S9 


K = lPiyf'F-l 

AF no 


1 

0 0 0 n- 0 

c 

FOR FACH window, I f TEST ALL StCMFNT ACOUTSITIONS 

AF IND 


OOOlf,l 


00 HO 1=1, 4,1 

AF ir.'D 

o 


000162 

c 

INITIALIZE WINDOW LOOPVARlAbl ES K ANO NACO 

AFIND 



000163 


K = K*1 

AF IND 



0 0 0 1 6 « 


NACO=0 

AFIND 



0 00 Ibb 


NALOrs 0 

JIM 

r 


no 01 60 

c 

FOR FACH OP tbO StC.Mt NTSfSFt IF ACOUlSTTlON IS HlTHlR 

AFIND 



00C167 

c 

WINDOW aNO SaIISFIES CLOtIO AND SUN CRITERIA . 

AF nD 



000160 


DO 60 J=I»1SNAC 

SI 1 I 

r, 

^ . . 


(lOti 1 l-'l 

c 

IS ACCFSfj date WltMIN WINDOW 1' 

JIM 



n 0 0 1 7 0 


lF(KHl(M,Ll.ir.RDAY(J)) GOTO 60 

At I NO 

\o 


000171 


1F(ICLuW(K).gI.1SR,;AY(J1) goto 6u 

AF INij 

[■ ' 
t' 

1 

000 172; 

c 

TEST DAY WITHIN SIZE op VECTOR 

AF IN'D 


000173 


1RDAY = iS.(DAY (JJ-ISUA iFt 1 

AF no 

o 


0 0 0 1 7 y 


It ( TRDaY.U .iSiPiAY) I.rilfi (|0 . • 

Ai no 



own 17b 

c 

( RRUR 7, DAY nU? OF RANGE OF VtCiOR 

AF no 

I.". 


0 b 0 1 7.6 

30 IPtRfn if?i)AY 

AF IND 

w 


0(10 1 7 7 


CALI AliA.'r(7) ' 

At 1 '.'D 

( 

if* ^ 


(I (10 17)1 

no 11- (InIiaY.I I.D I'.UTII 30 

Ai !'ii 
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s 

000179’ 

’ c 

ACTfcSS DAlF IS WITHIN WINDOW X. ADVANCt NACOl 

JIM 



oooino 

c 

(TOTAL ACtFSn COUNT FOK WINDOW 1) 

JIM 



0 0 n 1 R 1 


NACOTs NACOT + 1 

JTH 



oootfli.’ 

c 


JIM 

r> 


o&oiriii 

c 

any PWFVI01J8 LFT.AL ACQUISITIONS FOR CUPHKNT stGKENT 

JIM 



n 0 n 1 n 0 

c 

WlTlitlN HTNPOW I. 

JIM 



0001(0 


IF ( naCQ .fu. 0 ) on TO so 

JIM 



n 0 0 1 f 6 

c 

YtS. IF THIS IS NOT A TRAINING StCHRtNT, SKIP CIUUO 

JIM 



0 0 0 I fi 7 

c 

CDVFR and sun angle Itsi. 

JIM 



coo IRO 


IFUSTrN ,NF. 0)00 TO 60 


O 


0 0-0 1,R9 

c 

Huw TtSI Fnl< LEGAL ACOUiSlTlON SATISFYING CLOUD COVER 

JIM 



00 01 90 

c 

,LT. RAXTHUH and sun ANCtLE .OF., MINIMUM. 

JIM 



0 00 1<M 

So 

IF ( IsrCC(J) .GE. IPfC ) GO to 60 

J I M 

o 


0 00,1 oa 


IF ( SSANGCJ) .LI. XlSANG ) GO 10 60 

JIM 



0 0 0 1 9 i 

c 

Scr.MFuT SLIECIEU EOK WINDOW I, UPDATE COUN? (NACU) ANDJlM 


1 

oonioj 

c 

iJjDtX AiKI'AY. 

JIM 

■■ O’ 


o»o j »b 


NACOS NACO ♦ 1 

JIM 



000 I'/o 


lAPNI (nACO. 1)= luWl)IW(J) . 

JIM 



000197 


ANACO{iROAY) = A|(ALO( IKOAy) ♦! 

Al IND 

© 


000 lOH 

c 

ACCEPT MAXIMUM OF 2b ACOUlSHIONS FOR EACH WINDOW, - 

JIM 



000 190 


IE'(HA, Cll.GE.PS) GOTO 70 
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ocn^no 

c 

EM) OF SFGhLNT 

Af IN!) 

o 


0 0 Of* 01 

60 

(.OMTINUE . _ 

Al lUu 

5 ■ 


nod^ixl 

c 

END OH WINDOW, POST total ACQUISITION COUNT 
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0 0 0 0 i 

70 

lACNT r I )= NACOT 

JIH 

o 


0 0 0^00. 


lACNII (T)= MaCJ 

J I M 



ouotiob 


lA Iinl= ! ATOT 6 i NACOI 

JIM 



noo<?06 

no 

continue ' . . 

AFlMD 

c 
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OOOOOl 


si'uiTouriNr AiNiL 

ATNIL 

000002 

******** *«*****7*****«*************'****«*************«************* AT hi IL 

oooooii 

e 



AT NIL 

0UO004 

c 

KOUTlNt 

‘ainil 

AlNlL 

no no Ob 

d 

• 


AlNlL 

OOOOOb 

c 

pilKPOSt 

THIS ROUTINE INITIALI/FSTHE SACS PROGRAM 

A I N I L. 

ooocn / 

c 


•RKAOS SrUBEFtR LAHLl 

A I N I L 

0 0 n u 0 n 

c 


.READS CROPWINO LAIIEL 

A I M L 

OOntjov 

c 


.KFAOS INPUT PARAMFTFH CARPS 

AINTL 

0 0 n 0 1 0 

c 



AINIL 

OOltQIl 

. c 

LlNKAf.L 

' CA1.L AlNlL ’ ■ - 

A I N I L 

oonoi^ 

c 



A I Ij 1 L 

oono i A 

c 

routines CaELFD NOME 

AlNlL 

C 0 0 1 0 

c 



AlMiL 

oomib 

c 

local VARIaULF-S' none 

AIML 

nurii)i6 

c 



A 1 N I L 

0 0 0 IJ 1 7 

c 

lrhors 

oetected 

AINU. 

0 0 o:o IB 

, c 


01«02t03«OQfOBt09«tO«li 

A 1 N 1 L 

0 0 00 19 

c 


'' 

AT NIL 

0 U 0 0 0 

****<'************* «««**« 

A iNit 

0 0 0 0 ? J 

c 



AlNlL 

nooo?2 

c 



H'LK 

ooduPA 

n n n A /j 

L 

r 

COHMON 

OLOcK lUl K-HAMIlAL INPUT PARAMETERS CONSTANTS 

II'LK 

7 1)1 1/ 

1/ U U y r 

QOOOP'j 

u 

COMMON /lliLK/ • ■ 

-i bl. K 
1"LK 

0UI)0?(> 


tXiTTU 1?) .XISANOf XltOUN.lWt TL( lb) f 

JIM 

0l'i'()?7 


?K1I)( A) . lACASr, TbCASt, iWCASt »lHCC.ISANGflREr.»l70NF»! IFILfc’iiOHLEt 

ULK 

OOOOPB 


5ir>HLl',UEUt»lAMLr»IN| INtf 

IP-LK 

0 0 0 0,59': 


O H'hH i . JCRI' 1 

IPLK 

oonolo 


LOOItAl. lEKPlflCHI'T 

IPLK 

000051 

c 

NAME 

DE!irRTPTia,N 

ULK • 

000052 

c 

xittl 

REP/'HT CASE OIUENTtP RAGE TITLE FROM INPUt(12A«) 

H-LK 

no 00 5 A 

c 

XTSAIJO 

MInDMIIM bUi. ANC.Lt IN KaOIANS FROM INPUI 

H'LK 

non'tjAO 

c 

XTCOUN 

LOuNII'Y ID FROM INPUT (A01 

II'LM 

(iiino'*‘j 

t 

IWITL 

CROP wriuPR miES. TiTlF FO.R F'ACM xINDOR 0CCUPIF.S 8 WORDS 

JIM 

OOnu'56 

c 


aT ? CmARACTLRS per 'rtORO. 1 

JIM 

000057 

c 

ICIO 

columns 7S-H0 UP INPUT CAPO iA^: 

II’LM 

OOnuAB 

c 

I ACAsr 

ACn'ilSI eILC CASL mo. EROM input 

IPLK 

00OIJ59 

c 

ISCASE 

StGl'EEER Ca.se NO. EPOM INPUT 

iplk 

000 0 no 

c 

INCASE 

CRoPhTMO Case no. from inpot 

II'LK 

OOOOOl 

c 

IPCC 

MAXIMUM pFRCtNT Cl OIlD COVER ♦ lO-tO OF USFl) IN SEGMENT SELECT 

II'LK 

0 0 n o,.'i 2 

c 

I S AMO 

'MlMlH'l.'l dFUREES sun ANcLL ♦100 (IN DEGREES) (I«) 

H'LK - 

0 0 0 o!'l 5 

c 

I'JLn 

HI gU'O Id FRO'' INPUT (ID 

II'LK 

0000 00 

c 

17 one 

7CnF TO FROM INPUT (I 5) 

ULK 

OODO'ob 

c 

IIEILE 

LC(,ICAL UNIT NO. FOR card INPUl 

IPLK 

oono'ih , _ 

c 

lOE ILE 

l.nclCAL U.NII MO. FOP RlPuRI OUU’UT • ' 

IPLK 

000007 

c 

isE ur 

lo(,ilal unit No. rup seorfffr uaia File ’ ' 

IPLK- 

0 0 0 0 0 u 

c 

irE IlF 

LOcICAL UNIT NO. FOR CKOPPlNOOrt FILE 

II'LK 

00/1009 

c 

lAMLf 

LOcKAL UNIT No. FOR AlnuISIIION FILL 

H'LK 

nooc''0 

c 

I M l or 

mi. UuFb PER PAi.f 

H'LK 

Ooiin'j 1 

c 

II’ HP I 

PHunPoiiiG 1 (tAu KiPniir elao (Imprint hlpukt) 

H'LK 

00:i)0'j2 

c 

I CHI’ t 

ACuUlPI HOm ILKflP HIUDuH) REPUVI FL«G (Isl'HiNT PEPURt) • 

H'LK 

OOiOuSA 

c 



PI'LK 

OOOOSU 

c 

common 

IILOCH PDl K“Pln)ChAM LOONIEKS AND CONST ANI5 

PI'LK 

nooo'ib 

c 



PI'l K 

OOOObb 


cntp'oi' /PPLK/ 

PI'LK 

n»iio'>/ 


1 5Piil)hli',ul ,TPK jr, tPlYPl ,IP( HKtlUCIU l:,),lpWI<A(lbO)»ITtN('i) t 

PI'I.K 

noooMi 


PlPlFU- t 1 A) , IPl Ul 

PI'LK 
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C 



PI'LK 

ooodM 

C 
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OrsL'HTPTlON 

Pt'LK 

oooy^^ 

C 

XPWRK 

KdAIING iPOINT WORK ARt A-0 1 MtN3 ION IbO 

POLK 

000u^3 

■ C 

I.RUF 

first riMF FLM;(0=F TRSI ntll» l=SUUSttlUFNT.-l=LAST) . 

pdlk 

COPOfvU 

c 

IPTVl'F 

IVpF VIhLaT f 0 = UtJl('F:NnF IfcOf mwINTERt S=SPRING) 

JIM 

0000613 

c 

JPtRK 

AroHlSniOig DAY i~)lLM IT tYCFtOG HAXIMl.'MltRROR PRINT) 

PHLK 

000(160 

c 

p<co 

lU'lJ tiUTH ARl,'AY/0/l/2/i/0/b/6///b/9/ /-/0/*/t/ 

PI'LK 

000067 

L 

llLM 

POhIK" GF IFN ( 1 f 1 0. 100« lOOOf 1 0000) 

PRLK 

a'jO()6o 

c 

iry.|!K 

IliTlOFK WORK AKCA-OlHFlimCM I'-O 

PRLK 

000 06'? 

c 

mtnr 

tF|) OF FILL flag (I[.'Ur = Fh() F'll.t) 

PI'LK 

0001)70 

c 

IPfcFLG 

fatal tNHOK FI AG FUR FRKUR 1-15 (TxFATAL) 

PI'LK 

000071 

t 



SULK 

000072 

c 

COH'-IUM 

HLOCK sol h-SCGPtrtR file HFAOER and OAIA RtCOHO VARlAbLtS 

SULK 

0lO07,i 

c 



ai'LK 

0 0 0 n-7 <1 


cnn'i(ji’/r>L)i K/ 

Sl'LK 

0 0 f) 0 7 b 


tSrhW,SFMA?r<2l fSFMA*'2(21 f SF iKl. .ScOUNfSHCiit/f SFChH,SSANG( IbO) f 

si-lk 

0 0 0 07 6 


2lSorA5,mi AU> lONDAYt ISNAC» lGRl;r.,ISZlJMt*’l5STRA, 

SI'LK 

00007/ 


3ISU)'Gf ISGLGt lSIr(6't ISROAt ( IbUl tlSHCCl IbO) rNVLH 


nooiOTB 


'1, I JRUFf! f 1‘.0) » TM1AY( IbOJ 


00fl'(j79 

c 

namf: 

liFsGWn'TlON 

SI'LK 

OtOO^’O 

c 

sr.HN 

sfr.NEi iR current record no. 

SI'LK - 

0 0011“ 1 

c 

SFNAMl 

b!(.RMM)-FMF N*I1F PRO 1 0 1 Y|'F» StGNEf ER* 

SI'LK 

000002 

c 

S Ft .’ ah 2 

SFc.i'ijLR Fill ramf; from laofl 

SULK 

ooponi 

c 

SflRL 

irailfr id •>mi* 

SULK 

oopof‘0 

c 

SCL'UtJ 

SCgREFER country to (Fo.2) 

SULK 

ouoonb 

c 

SPCSW 

PFRCliNl SPRliJG WHFATCF6.2) 

SI'LK 

00 no ”6 

c 

jpcwrt 

PfRCE’VT RiNTM? W)U AT (F6.?) 

JIM 

nor-oo/ 

c 

s';a';g 

SUii ANGUn-1 RADIanD) for each DF iso SEGMENTS 

SULK 

nonoPfj 

c 

IS 6 CAS 

SlGPtFLH CASl HI). FROM LAHEl. 

SULK 

OOOOB9 

c 

i.odaif: 

SI GRE FER RhF'ERtN'tF nAIl-7ULU- 

SI’LK 

000090 

c 

tllVOAY 

N'O.. RAYS IN STUDY (1-026J 

SULK 

009091 

c 

ISDAC 

NO. ACUlJISinOHS IN KFCOHI) (0-150) 

SI'LK ' 

000092 

c 

ishtg 

sfc.refer PEmoN In 

SULK 

OOOOOi 

c 

l';2n;,E 

sigriclr /D’n 10 • 

SI'LK 

ouoo‘>u 

c 

IFSTKA 

SI gulflu strata id 

SI'LK 

0Uf)O'->b 

c 

ISU'tS 

SFc.i'ErER SU'UiTRAlA TO 

SI'LK 

000096 

c 

iriGFG 

SFgUEFLR SlvGMFigl TO 

SULK 

00009 / 

c 

irirn 

TRaTNINO SiGMFMT TNoKATOR(0»NoRMALt IsTBAlNlNG) 

sulk 

000090 

c 

ISHDAY 

ACi.ui?iTinN day For iso acuiusitidns-zulu- 

SULK 

0 0 0 0 9 9 

. c 


IF /LRUt F;nO of ail ACDIJlSniONS Th kECORD 

SI'LK 

000 100 

c 

ISPCC 

pirtent cluud c;nv»K » lo fur Iso acooIsitiuns 

SULK 

non ml 

c 

MVLH 

ND I F VFIlIUES IN iKt SWATH TAbLE 


o6nlfl2 

c 

inHOEH 

OPlGlNAl order of ACLESS DATES AS FiFAD FMOH SEO. REF. FILE 

JTH 

ooomi 

c 



CI'LK 

■0 0 0 : 0 a 

c 

COMMON 

DLDcK cm K-CRUPwlHD HEADFR ADO DATA 

LULK 

000 lOb 

c 



LUl l( 

000106 


COHMOtg /COLK/ 

lulk 

00010 ; 


ICrRN.n llAMl (2) tCFNAH2(2l ,CCOUN» 

CULK ' 

000103 


2KCASF,lCWlN0«lCi<F0»lrZ0NF:,ItSlHA»lCSUBSt!Cl OW{e)»lCHl(n) 

CI'LK 

0 0 0 1 0 7 

c 

NAFIK 

U1 .'if KIP r ION 

LI'EK 

onpMO 

c 

CfRU 

CU'll'U'I lROP"TND PlrOHU NO. 

LULK 

non 1 1 1 

c 

ccnafu 

FTlE UaVL ♦CR0PWlN0»l2A'l) 

lulk 

PUOM 2 

c 

CFMAH? 

LA-ffL FILE NAME-MOST MATLH CFNAMl 

CULK 

000115 

c 

CCOUl* 

CROl’RlND CUNNTRY ju (AO) 

CIH.K 

0 0 d 1 1 0 

c 

in; A OF 

CRdPoTIID cam. no. MiUM LAMU, 

LULK 

0 0/j 1 1 |3 

c 

10 I NO 

NO. UF CHOI' windows (II) 

LI LK 

0«dll6 

c 

ICRFG 

CPc.P‘’io!'' region in 

CULK 

000 117 

G 

irznt.F 

•LI'()PhIOI) /ONE ID • 

LM.K 

0 0 1' 1 m 

c 

irUHA 

Lktl’RTND STRATA ID ■ 

CI'l.K 


• NLM 

♦♦-J 
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U'LK 

CHLK 

APLK 

ai-lk 

Af'.LK 

AHLK 

AI'LK 

JIM 

AI'LK 

APLK 

AI'LK 

AI'LK 

AI'LK 

Jill 

AI'LK 

AI'LK 

AI'LK 

At-LK 

AI’LK 

JIH 

JlH - 

JIM 

JIM 

JIH 

JIM 

AINIL 

AMTL 

A I II I L 

A ! M L 

SI r 1 

sn t 

JIM • 


O OI. l ')2 


Rl AD USE II E)SFNAM2. ISSCAStlSDAIFtlSN'DAYtlf I»I«NVtH 


O'/l'lSi 


SCKNi) » 

A I N I L 

ouriSH 


IF (SFNAHt .ri3,SFNAH2) GnIO 4 

A I N I L 

nuriHb 

3 

CALI. AllARElP) 

A I ri I L 

n 0 1) 1 L- 6 

4 

M- {i.E9/M1(?).NI .SFMAM2f2))G0T0 3 

AINIL 

ooniSF 

s 

IF< r.br'nAY.LK.n26)G0TU 6 

A 1 N I L 

oonisii 


CALI AtlARfCllI 

A I N I L 

OOniS'E 

c 

eeao crupkind file label 

AINIL 

000160 


S RE AiKIcrUULrNAM?, ICCASLtlCwlND 

SI 1 1 

000161 


1 f ( IpILl tl = 1.17 J 


0UP162 


cr.RM=i 

AlNll 

000163 


ir (rr Nah 1 .1 n.CMJAM2) r.oio a 

A 1 N t L 

n 0 0 1 6 u 

7 

CALI Af,ARnn 

AINIL 

00ni6b 

fl 

IF (CFnAMI (2) .l.F. CFNaM?(2))G0 TO 7 

A I N I L 

00" 1 6b 

C 

RLAU flRSI iNl’llf CARD 

AINIL 

00016/ 


heao(hfuliioo)Xiiil,icio 

AINIL 

00016H 


IE lURijf n.Eo.iriD) onin 12 

AINIL 

0 0 0 1 /. V 

lo 

CALI A('AI<f(f.) 

A 1 N I L 

OU0170 


r,!! TO l3 

Jin 

000171 

12 

in icrn(2).Ni .11 I0(?)i nolo lo 

A I M L 

0U017.; 


IM K M)(3) .III:. 1 ) GO TO 10 


000173 

13 

cniiTif.ui 

JIH 

000174 

C 

RLAO SE'COND INPUT CARD . ' 

AINU 

nooi7'> 


liLAI'i HE 11 E f 1 1 OllACASr * iSCASEtlWCASFflPCCf ISANCFXTCnu^'»IREGtl7UNt»AlNlL 

000176 


cii'Ki’i t u HP 1 • icjn 

AINIL 

0005// 


M' ni r U’l lU t lo'’) I A'i'AM.fXi HL«x niL ^ • 


060 1 /il 


W" 1 ri. f liip ILI 1 1 0O> I ACAsLUSLASE » I wC ASE» IPCCt ISANOt XlCOUNt IREGi 

120f|f E 


P 0 0 1 t V 
OOOlf'O 
000 I? 1 

0 0 0:i?2 

OOP ir>i 
no')i 2 u 

OOP I2'j 
OOOlPb 

nupi?/ 

0 0 0 1 ? u 

OOl) 129 

0001 <0 
OOP I VI 
000112 
000133 

0 0 0130 
nil'll 5b 
nun 130 
■noni 5/ 
noni 3« 
000139 
0 0 0 1 1! u 
no ill 111 
nonius 
OOP 10 3 , 

0 u 0 1 n 0 
0 0 0 1 a b 
000106 
P u 0 1 0 / 
ouO 10 s 

00^109 

non I'vo 
0 0 n 1 1 


ICSlIttS CI'OPWTMD SLHKSTHATa TO 

ICLMW SIaPT OAIF Ot- 0 WJNnUWS 2UUI-HtlATIV£ JAN 19S0 

ICHI STOP OATS OP e winnows ^ULTI-Ptl ATlVfc JAN 19bO, 

CnilHUM BLilICK Abl.K-AClJlIlSI FILE AND REPOKI VAHIAHLES 

COHMO'l/AJl ^/ M ; 

lArWMfAr NAH{?) «APIRL«AMAruC0?6) t 

PIACIIT (U) f lATOT. I APilI(?b,0) , lAPAG, 1AMLIN.1ACNIL(«) 

NAME UI;r.rK'IPTlU(J : • . • - 

ACRN CIIhKLMT KfCOi'O MU,. 

APNAH LAfjl-L MLl MAPL + ACUlllSI ♦ 

afthl ihatlek lo mn* ao 

amaco ho. of Acuijisi nuns scLEciEn fur each It a 26 pays 

lACnl IC'TAL NO, OF ACCUSES KlH EACH OF 4 WINDOWS 
lAinl IfjTAL No. OF ACUUI SIT IONS FOR ALL 4 WlgoOwS 

lApNT IW’l'X To StCPLFtll AL'IUISmON (I-llbO) THAI lOtNTlFIES 
* StlLtTEO Sri.MlNl. UI’Nl(liJ)=“WlNUOw I IHHOUr.H <*. 
lAl'AG X /c'lOIbnUlli RLl’Cml ClIhHtNI PAUF MUHiiER 
lAHLIN icOUlSnlUN RlPURI no, unis RrMAINING CURRENT PACE 
lACNIL NO. ur I I;C.aL ACNU73 I riUNS SELECTED FOR FACI1 OF 'I WlNOOwS 

COMHUI /ir.'PEKK/ IMPfRR 

INPEKR ILplH ERROR ELAI-. SE I = 1 IN AUARF IF l-MEPt ARE ANY FATAL 
ERRORS OFiFLTtO ON IHt INPUT CArPS OY AlNlL 

ClIMENSlON ICRD(P) 

DATA IcRD /?HSAt2HCS/ 

DATA IcROI f IlRUP/I'iIIII 1 JUO?/ 

bLAO SEORLfER HEADER 
RFWI in ISFll L 
REF. I NO ILF 11 L 
RE HI 10 lAFIir 
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000179 
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000 l«5 
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00niF6 

OOf-lftT 



000 IPO 

l6 

■'b' 

ouoil'9 

ounioo 



nooiOl 

■. c ■ 

Q 

000192 

• 

' D 

000193 

nof'ioo 

?0 

O 

oon 1 (lb 

?2 


000 lOfa • 

23 


Oori/i? 


o 

000 1 OH 
OOP 199 

2a 


0 0 0 k 0 0 

2b 

o 

nooko 1 

C 


000202 

28 


000203 

C 

G 

000209 
0 0 Q 21) b 

c 

r ; 

0002OH 


o 

B 

0 0 0 2 0 7 
0 0 n ^ 0 (i 
0 0 .0 c; 0 9 

c 


00021 0 
00021 1 
0002 12 


O 

000213 
n 0 0 2 1 u 
nu.) 21 b 


lO 

0 0 .0 2 1 6 
00021 / 
0 0 0 2 1 H 


o 

0C0219 


g 

O0I1220 

30 

000221 

c 

\o 

000222 

000223 


t: 

000229 

If 


000225 

1C 

1 

n0()22o 

If 

1 

000227 


:o 

000223 


■ * 

001)229 
0002 VO 

n 


!fn’RPT,tCI?Pl 

U ( ir«om .NH. ir.in ) i;o to ia 
IKTCIO fi) «!)C.<rTU 15 

a CALI abakf(ti) 

5 cOfiTlMuf 

ruFcK Stf.kLFFH AND CROPHTND CASE NUMBERS 

IF( rsr,\r>L.to.o) ooio to 
irasr/.SL.tu.isscAs) cuto i6 

CALL A!lAhf-(/J| 

6 If cr-CASh.i n.oj i;n to In 

ir (IrtC/;St;.E.f'. ICCASL) ROTO 16 
CALI ABAKFCI) 

rrflC'K SUN AND CLOUD COVER RANGES 
lU IF flSANG.GF.O) GOTO 

0 CALI. AmARF (9) 

GO TO ^3 

2 IF (Jsai.g.g'i.vooo) goto 20 

3 CONTlMif 

IF (II'Cl'.Gt.U)GOrO 2 S 
It CALI AnAkF nO) 

GO TO ?n 

b IF' nPcc.GT. inqo) GOin ?<i 

IF THLHL WfKF ANY INPUT tKHURS? ABORT RUN, 

8 If- ( TfJPUIR .Oi,. 0 ) Call ABAHF (-D 

SUN angle TO F<AOIANS 

XISANT.slSANG ’ 

XlSAM;=XlSAMG/S729.S7fi 

iNiriAi i/t Flags counters' Ot? 

iPiY‘'r=n 

lPu'F= .FALSE. '-VriS 

Kk(G=o 

K/ 0 IIF=( 1 : 

irSTkArO ; 

irs'insro: >30 

CrUUN = xTCOUN cS 

JAt'AG = u 

lANI IM = 0 • K El 

1PFTF = 0 H pH 

on VO I = l,il 26 *l K to 

AllACiHilso 

0 COfUlF'ur . . 

write ACOUISITIuN label 

call' AhI'IA 

RFU.'RO ' 

100 format ( t2AU.20Xt2A2*12) 

105 format ( Iht .SHCASt » ! '1 .Ijy f 1 2A «/ 1 HO ,5 1 X . SFWE AOER/ IH t30X»l2A<0 
100 F ORHAT ( UlPf 19X,/.9I'KASE iCShSR tCSECW IPCC ISANG ICOUn IREG 
1 r/Uf.'t IHRHl ICkPT/lH »20X.I'l,3X,I9,OX.IO,OX.13*5x»la»3X»A'q, 
23Xf I3./tXf li.bXfUrGX.i n 
110 F0HMAT(3J«,nil'ftA9.nfT3f2L 1 t «3x . 2A 2 . 1 2) 

E»)l) 


JIM 

JIM 

ATnTL 

AINTL 

AT NIL. 

AInTL 

A I rJl L 

A I M L 

AINIL 

A I N 1 1. 

AINIL 

AINIL 

JIF: 

A I il I L 

JIM 

AINIL 

AINTL 

JIM 

A U. I L 

JIM 

JIM 

JIH 

AINIL 

A T T L 

A I N I L 

A 1 N I L 

AINIL 


'll 

JiH 

AlNlL 

Ip 

. AINU.' 
AlNiL 

'Si ^ 

AINIL 


AINIL 


AINIL 


atnil 

AINTL 

AINIL 

atnil 

ATNIL 


JlH 
JlM 
A I N I L 
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OOOOOl 

oooont; 
nuoooi 
0 0 0 0 0 <1 
nooonb 
oonoob 

000007 
n 0 0 Q 0 a 
OOOUP9 
0 0 0 0 1 0 
oonoi 1 
n 0 0 0 1 <i 

OUO013 
0 0 n Oil 0 
nooDii b 
non 0:1 a 
nooQ:l 7 
no n o 1 » 
nono 1 9 
nuco?o 
nnno^l 
f:uno;'^ 
oonopj 
0 0 n n P 4 
OOOOPb 
oonopb 
0 n n ? / 
0 0 n 0 ? B 
(lOnnPO 
oonu VO 
nuoo VI 
noaov^ 
oooovi 
OOouVO 
nonovb 
oonovb 
ooo(iv7 
nooo'^0 

0 0 00 V9 
0 11 0.0 « 0 
0 0 no 0 1 
oo'nO'ip 
OOPOUi 
0 0 Ob 'Ml 
no no. lb 
ounona 
00 poo 7 

OOpOOB 

no 0 0/1 <> 

OVOOMl 
nonir*! 
nun u b 
oo.no'ii 
nojniJ'.n 
OOOysb 
Obno'^a 
n 0 '* o'> I 


SIUVROUtINF APRPT APKPT 

C*«***«*«««*4*f*««»*|:«*«1>««***««««*««««««««*«t««**«t**^**»««****»*««**t*APIlPT 

t ■ . APimt 

C ROUTIMP aphpt aprpt 

C APRPT 

C PtiWPOSt THIS RnuTlNt PRINTS THK OAILT PROCESSING LOAD RtPURT APHPI 

C AI'hPT 

c linkage call APRPI APKPT 

C APIvPT 

C ROUTlNtS called APKPT 

C F/UU)f LONVtRT ZULU OAtETO MM-OO-tY APRI>T 

C . APKPT 

C LOCAL VAHIaI'LES APrPT 

C • IROAT-YVtMH,DU REFERENCE DATE APrPT 

c nc'Pag-ho. op current page . AIkPI 

C MLINP-rUlAl NO^ detail LINES TO HE PRINTED APkPT 

C NLIUFK-NO. OF OLTaTL LINES REMAINING TO BE PRINTED JiH 

C NLINEP-NO. of PLTaIL lines PFH rage (l-2b) JIM 

C NACUM-ACOUIST 1 TUN HO. FOR COLU-MN.S M H= 1 THROUGH 4 APRPI 

C AFKPT 

C . - : Al KPT 

C IPLK 

C COHMOiJ HLOCK lOlK-HANUAL INPUT PARAMtTLRS CONST;ms^ H<LK 

C “ ^ tplk 

COHHUN /lOLK/ - JHLK 

ixlTTLn?)*xisANn.xicuuN,iwirLOa), ' jtm 

21C10(3t t lACAsFf lSCASL, IkCASE*lPCC.lSANG»IRtr.tlZONE»IlFILE»IOF ILEt ll'LK 
'Vl.nE ILl ,ICF It E» lAE Uf , TM. INt V li'LK 

njPHp r * irKPi ■ ' jmlk 

LnoICAb IPKPT/ICRPI ■- iflk- 

C MAKE OE.'trKIPTinH ' i(‘lK 

c xittl RfpoKT CA-st uRirtiTLn Page title from inrut(12A4) iplk 

C XISANP. HIhHHUH gum AMOLt IN RAOIANS FROM INPUT IHLX 

C XTCOUN :tnilMRT ID EKOil INPUT (AH) IHbK 

C IWITL CPllP RIPdOa TULLS. TITLE FOR EACH HINPOH OCCUPIES 6 HOKDS JTh 

C AT ? CHAlUCTbK’S PFH kOKl). JlH 

G icio coi;U;iNS 7b-no ue tnput card 3az D-lk 

G lACASF ACriUlSI eILE CASL NO, FRUH INPUT IfibK 

C I.SCASE SEi;RtrE.R CaSL NO. EPUH INPUT lULK 

C IRGASE GRuI’kTMD Ca-SL tiO. TuuM TnPUT II>LK 

C IPCC HAxTMUH pFrCLMT Cl OliU GUvFk ♦ lO-TO UE USED IN SEGMENT SELECT IHLK 

C tSANG MIIiIHDH dEURLFS SUN aNi.LL aIOO (IN DEGkEES) (1<0 HH.K 

C IPtG REuIUM TO ERUU input (IV) H^bK 

C I/UNE ZOtjI IU EKUI' input (15) IHLK 

C nULF LPgIGAL unit no. fur CARU input • IUlK 

C lOFILE LOGICAL UNIT NO. FUR RLPuRl OUTPUT IHLK' 

C l-SEILC LOGICAL UNIT NO. EUR SffilHEEH DATA FIIE HH.K 

C irflLF Lln.ILAL UNIT Nu. rUR CHOPUINUOk file IPLK 

C lAEILI logical unit HU. FUR ACHUISITIUH FRL IPLK 

C INLINE NO. LI.NFS PI R PAGE 11 LK 

C iPlvPI PPoltSSlNG LOAD HEPOKT FLAG (TsPRTnT RtPORT) - IPLK 

C ICRPT AT (jUlsiTiUri (Chop HINOUW) report flag (TsPRlNT REPORT) U'LK 

L . IM'LK 

C COHHUN IlLHcK PBLh-PHllGRAH CoUNILR.S AnO CONSTaNT.S PPLK 

C PPLK 

COMnuH API'LH/ • PK.K 

lXI’nHN( i‘>0) I IpE IE , It' TYPE', I PLRH • 1 HCO ( 1 b) f I PURE ( T bO ) f I TEN (S) » PI'LK 
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',5 

OOOCS9 



21PLFLr.(13),lFF0F « ’ 

POLK 

o 

nono/.O 



LdUICAL IPLOF 



OUOUM 


c 



PI'LK 


ouoo^a 


c 

NAHF 

DrscHTPHON 

POLK 

o 

000(1 /Si 


c 

XPH«K 

UnATTNG POINT WORK AREA-DIMENSION IbO 

POLK 


00006« 


c 

IPFTf 

FTR6I TIMF FLAGlOrFTRST TIME. 1 =Stlt)SEOUFNT t- 1 = L AST) 

PIiLK 


00006b. 


6 

IPTYHF 

lYpF wheat (0 = UHInDniFItD.» l = WlNTtRf b=SPHlNCO 

JIM 


000066 


c 

IPtPH 

ACljlHSlUniJ DAY WHEN II EXCEEDS HA X 1 HUH ( EHKOK PRINT) 

PHLK 


00(706/' 


c 

incn 

MOlIEIUTH ARRAY/0/l/ii/3/4/by6///6/9/ /-/U/*/t/ 

POLK 


000066 


c 

ntw 

RDWI R5 nr U'N ( 1 * 1 0, 100. l-ooo* 1 0000) • 

PI'LK 

© 

000069 


c 

IPisHK 

IHTEGFR -ftriRtf ARE A-IJllin,SIUN ISO 

PI'LK 


0 00070 . 


c 

JPtOF 

LEI|) OF FIEk FLaO eTruFsEI.O EHE) 

Pl'LK 


O0O07I 


c 

1 r-1. FLO 

fatal ERKIIR HaO FOR EKRuR 1-li (TsFATAI) 

PI-LK 

0 

00007«i 


c 



Sl'LK 

0 

0 0 0 0 7 i 


c 

CTIMMON' 

PLDcK SUU-SEGHt.FER FILE HEADER AND DATA RECORD VARIAUIES 

St'LK 

0 (; 0 0 7 0 


c 



SI’IK 

o’ 

n 000 6b 



criMMO.'vSui ^7 

Sl'LK 


0000 lo 



16rkN,r,|-6/\Ml (2» *St NAM2(2) tSKTULfSC0UM*SPCSHiSPCHW,S5/lNi;Ob0) t 

Sl'LK 


000077 



?IS6r AS, ranATEf ISNI'AY, tS-JAC» ISkti'.t IS70Mt» isstka, 

SFLK 

:0 

ooou70 



j I suns, isstc. isrHN, rsROAmso) f isHcci ibO) ,NvtH 



000079 



a. lURDS'kf 160) , IKOAY c ibn) 


:.■ ■ 

o»no‘'0 


c 

NAME 

OFsCKIPIIOt. 

Sl'LK - 

o 

0 0 6 0 n 1 


c 

sc MU 

SI (.ELFER CHRKtf.T PEfURO HD. 

Sl'LK 


Ouify/'c! 


c 

SEN A Ml 

SI (,RLJeR hie l<AHl dRUIDIYRFYSECKFFER* 

Sl'LK 


0 0 0 0 6 i 


c 

sfnah? 

SFoReVeR Fill NAHF FRDH LA6FL 

Sl'LK 

0 

OOOOi'4 

* 

c 

SFTPl 

ipa'leh 10 r/:nj* 

Sl'LK 


nonoob 



srouu 

SF(, refer COHNIRY lu (F6.2) 

Sl'LK 


0 0 0 0 0 6 


c 

SPCSH 

PEKCLHI spring WHrATCFo.F) 

Sl’LK 

o 

00006/ 


c 

Sl'CViH 

PlKdf'I t/lNlUi Will AT (16.?) 

Jl;i 

I 

0 0 0 0 66 


c 

S.6A))U 

SHu A'.'blEClN PAf'lANn) FOR EACH OF ISO SEGMENTS 

&'>LK 

0 0 n 0 6 9 


c 

ISSCAS 

SEC, REFER CaSF NO. FROM LABEL 

Sl'LK 

:0 

OU0 090 


c 

ISUAIF 

SK. REFER REFERENCF DAIE-XULM- 

Sl'LK 


oonorji 


C 

ISUDAY 

Nn. DAYS III sruDY (1-626) 

Sl'LK 


oomOi 


c 

i.66AC 

NO. AClJUlS n IONS TN record (0-lSO) 

SULK 

o 

0 0 n 0 b i 

J 

c 

ISKKG 

SF'l.REFER REGIDn In 

Sl'LK 


OQOIIOO 


c 

IS/OnF 

SFG''EFER 7U‘)i in 

SI.LK 


0O00'*b 


c 

ISSTKA 

SEr.REttR SIRA I A in- 

Sl'LK 

iO. 

OU0096 


c 

ISU'VS 

srr, REFER SUI-STRAIa IU 

Sl'LK 


000097 


c 

I S J E G 

SFgRFFER SEGhCnT id 

Sl'LK 


nOoooH 


1, 

ISIMfl 

TRaIninc SlCnFfir TNnlCATOR(ncNORMAL.l«TRAlNlNr.) 

Sl'LK 

0 

000099 

• 

c 

ishmay 

ArcUlsniON DAY HiH ISO ACgUIS1TI0NS-?UI,U- 

Sl'LK 

: 8 

0 0 0 1 0 0 


c 


IF /ERU. ENI1 ni ALL ACOU I S 1 T 1 Q,siS TN KELORD 

Sl'LK 

000.1.01 


c 

ISPCC 

REKCEMI lI.UIJD CUVfR ♦ 10 FUR IbO ACOUlSltlONS i 

Sl'LK 

o 

000 


c 

NVE.M 

NO f'E VFhICIES in The SHaTh TAGLE 


r 

000 i;joi 


c 

inHDtH 

ORlI.iriAl ORDER (IE ACCESS DATLS AS READ ERIIM _SE U . REF . FILE 

JIM 


000 11(10 


c 



Al'LK 

so 

nooi'hb 


c 

CnilHON 

DLDCt' AlU K-AClJUlSI HLE AND RtPOPI VAIMARLES 

Al LK 


00 0 1; 0:6 


c 


■ 

APL< 


00010/ 



CiiHMON/AbI k7 

A t'LK ' 

jo 

noo l 06 



1ACHM7AkHAM(?) .AF1ML»ANAC(j(a?6l ♦ 

Al'LK 


000109 



PlACNMo) , tAlOT,lAPNU2b,U) , tAPAr.,lANLIN.IALNlL(0) 

JTH 

■ 

(lO O i 1 (J 


c 

NAME 

O'-SOwIRTlDf. 

Al’LK 

Q 

t) 0 0 1 n 


c 

achu 

UI'RlNl RECORD NU. 

Al'LK 

' a 

01)0 1 Ir! 


c 

afnah 

LAlilL FILE NA'il. ‘AcmilSl ♦ 

Al'LK 

ouniili 


c 

af tml 

IRaILFK id *1711* AO 

Al'LK 

■0 

n u 0 1! !1 0 


c 

A'JACU 

NO. UE ACOUISIIIUHS SI'LECELD FUR EACH OF 026 DAYS 

Al'LK 


00011:1 b 


c 

lACfJT 

TOTAL NO. OF ACCESSES E DH EACH' OF 0 hlNOOWS 

JIM 

• ■ 

out) l-i) b 


L 

1 Ai,nr 

lOlAl I-O. OF AM.IUslTlOrlS EOR ALL 0 Wl'lUOWS 

Al'LK 

=0 

00011/ 


c 

I A PUT 

Irinix Tu Sli.RUhR ACOljIsniUN (1-1601 THAI iDENIlFTtS 

Al 1.K 


ooniui 


c 


A SMIClEu SII.'LHI. IARnI(I,J)= W1H(10w 1 IHROUGII <i . 

M LK 


o ^ 

8a 


SB 

fel 
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ooonv 
non i?o 
non i?l 
non 1 ?^ 
nonipi 
nonip'i 
oooi?i 
ouniPd 
0 0 (1 1 p r 

0 D n 1 ^ a 
ooni?*! 
non I ^0 
null, u 
nun 1 u 
000 1 5i 

no - 1 
ooniiij 

0001 V/ 
0 00 13 a 
nuo 1 V) 
n 0 n 1 no 
n 0 fu « 1 
non in,i 

0 0(1 mi 
non 1 (JO 
non mb 

0001 Ob 

OUO in / 

non 1 no 
oon mo 
OUO ISO 
OOlUM 

nnojsa 
n 0 n r> i 
ouni'.u 
oonma 
OOOlbO 

norm/ 
non iMi 

OU! l',9 
no tri ao 
ooojmi 

oonmt? 
non i.ni 
noni;/,n 
nun mb 
nuni /,6 
ooo;ih7 
oooma 

000169 
(vuni 10 
000171 


C lAf’ftG ArflUISITTON RLPOKT CUKRtMT PAGf WUMtJER 

C JaNLIN ArOUIbnlOM RtPORl NO, LINES KFMAINING CDHRtNI PAGE 

C lACNlL NO^ OE LLI'AI ALOU I S I T I UHS SELECTtO FOR EACH OF 0 WlNOOHS 
'DfNFNElPN I NO AT (i) 

■ If (.KOI. ,U'NPT)C,0 in OlO 

c ■'“ iTariAt 1/f. vahiarle.s 

CALL F/llLUnsOAltt lI'UAl ) 

NOPAG=0 

NALOmo • 

Nt.lML=( ISM(lAYti)/0 ' 

NL1MLN= Ml JHt 

c ifiiiiAi-iZk Pace vawiaules and print page/column titles 

c ' 

10 NCPAG=NEPA(mi 

NLINEI’s MTNn(NLtNrH»J’b) 

NAL'l^r, f:ACO‘l ♦ MLtf.rP 

. NALOIJr t.'AC'Jp ♦ 'll INtP 

NALt)0= NAEui ♦ NLINkP , 

NHITt( 10 MLF,tOO)lACAnE,XITTL»NCPAU 

WNITL (lUFILEfllO) I hU A T ( i!) » 1 ROAT { 5) ♦ IRQ AT ( 1 ) *X1C0UN* 1 RtG f 1/ONE 
wNiuf inrrLE.mo) 


KHlTLfinETLF.lbn) 
WNITcf Il'LlLEf liO) 

WNUE UP 

DO 30 l=ltNLlNEP 
NACumNACumt 
NAcn«;=nAca<i+ 1 
NA.Lni=f)ALni+ 1 
NACnnsuALniH 1 


in ?S DETAIL LINES PER PAGE 


AOLK 
AKLK 
JIH 
AfUPT 
Sf J J 
At’NPT 
AN NE T 
A‘’kPI , 

aekpi 

AEKOT 

JIH 

APKPT 

APKPI 

APKPt 

AT HPT 

JIM 

JIM 

JU! 

JIM 

APKPT 

JIM 
Ai’KPf 
A I KPT 
APkPT 

apkp I 

APKPT 

APkPI 

jtm 

APKPT 

AlpPT 

APKPI 

APkPT 


NALlHISMALnn+ 1 ... 

WNlTL(lf'FILF*lpO) NACrjl « ANACU(NACOl) *NACU2* AHAC0(NACU2) ♦NALNS* ANAC Al’UPT 


COTNAUrO TNArnOf ANACO(NACU/n APM’I 

»0 CnMTIFUl ‘’1''“ 

Nt l’)l.K= ULl*n.N - P'3 

nalim= NArun 

IE ( KlINER ,GI. 0 ) GO To 10- ,» J 1 H 

10 HNlTLUPETLf tl70) APKPT 

rmun;.- a'’NP1 

Iflo I0 ki'AT(M 1TCASF fm.iOH DAILY PROCESSING LOAD REPORT tl/AR.lbH LPP 
ISTMIILaI TON ibUPAGF til) . 

llO EOkhaT ( 1 ho « 9X * 11 HbT AP T date * 12 1 1 M-? I2» lfi“» 12«2 x » OHCOUN I NY fAa»2XAPHPT 


C»7HI'>.i:i('H , 13*2XtbHZUNE fI3//0 Ti i; ; mi ‘ , UlM 

p (IK'-Al (IPO) APKPT 

7 nHHAT ( VHOl'El ATIVLibX» 3MNU. f OX mHKELATI VE »bX t il'Nn. » BX i OHPLL AT I VE * APKPT 
rbXfl.N.-D.fHXffaHKbLAl IVF.bXt.iHNn.) • APKPT 

H)KMaT foH day. nx. mifACUUlsnlONSfiXfSH PAY.nx.I?HACOUISITlUNS.APr<PI 
CSX.SH OAY.'tXf 12HACUUISTT IUNS.3X. “ ' APKPT 

CbH DAY .OX. 1 2HAr.UU151 T inf'S) APKPT 

I nisPAT cm tOfib.r 1 2.n.7x) ) 

pHitMA) ( mi ) APkPT 

LNU 
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f' 

© 

o 

© 

o 

o 

;o 

o 

o 

o 

Q 

<"1 


000001 
oooon^ 
00 0 0 0 i 
0 0 P 0 n -4 
00000b 
0 0 D 0 0 6 
0 0 000 / 
0 0 000/1 
000009 

0 0 no 1 0 

OOOiOjl 
oop'oia 
0 0 0,0 1 3 
CPOU 1 0 
PCMiU 1 b 
'r'Pij ! b 
00001/ 
0000 1 a 
000017 

nooo?Q 

0000?! 

0001)^^ 

OOOoPi 

0000^4 

oono/'b 

0ono?6 

noopf-/ 

OUOOPb 

pCpoPV 

000050 

000031 

00 oq 3? 

OUOO 53 
0000 54 
OOP03b 


SUBROUTINE AHfAD AREAD 


ROUTINE 

PURPOSE 


linkage 


ARFAD 

THIS routine HFAOS both THE CROP HIND AND SEGREFFK DATA 
FILLS and RETURNS A RLCURO OF EACH OR SETS A FLAG TO 
INllIGATf AN END OF OAT A HAS PEFN EHCOUNTFKFO 

CAlL ARFAU 


LOCAL VAKIaPLFS 

It 

Xt'‘ 

IFLG* 


THROW away INTEGER ARRAY DIMENSION ISO 

THROW away real array dimension ISO 

HAO ID indicate ACUUISITIOnS ARE TO UE COUNTED 

ONLY OrACCEPT AND COUNT t l=COUNI ONLY 


routines CaUEU 

AUAREfl RRUR ROIII INF 

Ib-LOUNlRY nOI tOUAL FOR INPUT AND I FILES 
Itl-CRUPRTflU MISSING .SEGRFFFR /!Of,F 
t3-RLCnK0 SKIPPED DUE TO 0 PFRCENT WHEAT 


AREAD 
ARE AD 
AI.'EAD 
AREM) 
API AiJ 
API A|) 
AREAD 
API AO 
AREAI) 
AREAD 
ARL A|) 
AREAD 
A R E A 0 
AREAD 
AHEAD 
Af’EAD 
ARt AO 
Al’LAi) 

ahead 

Ai-EAD 

AREAI) 

ahead 


c AHEAD 


COMMON JlLncK lBLK-NA INPUT PARAMETERS CONSTANTS 

COMMON 71 alK/ 

IXlTTLf 1?J tXISAKGtXICUUN.lWTTLUN) t 

2irin(3) 1 1 ACASI 1 1 SCa.SE. iWEASEt IPCC t ISANGtlREGtlZONEtl IFILt t lOFILFt 
3ISF ILF , RF 11 E t lAF ILEt p.'l INLt 
41HHPI t ICKHI 
LDGICae IPHPIflCnPt 


AHEAD 
1>LK 
IH-LK 
II LK 
1HI.K 
JIM • 

IHL« 

li'LK 

IHLK 

IHLK 


c 

OOOO'Ah 

c 

name: 

UFsrRii'Tin.N 

II'LK 


0 u u U 37 

C 

xiitl 

Hlpf'RI FaSI OWlFNTtn PAGE TITIE FROM INPUT(12A4) 

INLK 


OlUHWil 

c 

XlSANf. 

MlNilHIifl SUN AMnLE in radians FROm INPUT 

1IL.K 

G 

0',' 1)037 

c 

•XICDUN 

LDuFIRY id FR(>M INPIII (A 4) 

II'LK 

1 

OOnu'iO 

c 

IWTTL 

Ll-O'’ WIHdDw TIllES. TIRE FOR tACH WINDOW OCCUPIES 8 WORDS 

JiH 

1 

0 0 n u 4 1 

c 


Al 2 CllARACTMfS PFR KURD. 

JIM 

^■P 

000042 

c 

ICID 

LPlUMMS /S-no UR input CARU 3A2 

I I lk 


0 0 n 0 4 3 

c 

lACASF 

AroUlSl FRF CASE NO. 1 ROM IRPUT 

II'LK 


000044 

c 

1 SC ASF 

SFr.HEFER FASI no, FROM InHUT 

IHLK 

:p 

pon.'jnb 

c 

I wcAsr 

CHOHPIND FaSI no. f rum InHUI 

IM.K 


O0 4i)4(> 

. "C, 

I per. 

MAXIMUM PlHFt''l CLUnO COVER • 1C. TO UF USED IN SEGMENT SlEtCT 

IHLK 


0001)47 

c 

ISANG 

minimum dfi.ref.s Son angle *100 (in degrees) (tr) 

IIRK 

Q 

000340 

c 

IREG 

HF GlUri Id FRO 1 INPUT ( 1'5) 

IHLK 


4001)49 

c 

I/U.'U 

ZOnI id MU) I INIMIT ( 15) 

IHLK 


OOo/i 

• 0 

c 

I IF ILF 

LOr.RAL UNIT NO. rOR FARU INPUT 

ll'l K 

:P 

Olifli,. 


c 

IMI ILF 

LOr.ICAL UNIT oij. FUR RLPORI UUIPUT 

II'LK 

1 

40 10^2 

t 

ISHLF 

LO(iRAL uun Ng. FUR SEGKFFFK UAIA FILE 

11 LK 

S 

non j 

S3 

c 

rmlf 

LDiillAL UNIT IIU. fUH FRllPWINunn fRF 

II'LK 

o 

nopij 

./I, 

c 

I M I LI 

l.O|;ILAl UNI I NO. MIR ALiJLlISlIIDN FRE 

II'LK 


0U4/J 

lb 

L 

IMUI.’I 

NO. LINIS PM< HAGF 

II'LK 


POPU- 

lO 

c 

IPHIM 

HHOM SSING LOA.i RrPnRT FLAG (T = PK1NT REPORT) 

IHLK 

V 

Pon,!'i/ 

c 

ir.RHi 

• AFillUSI I in., [M.np WINDOW) RFPDRT FLAG (T = PK!NT REPORT) 

II'LK 


Wili.l! 

.11 

L 


" 

HI'LK 


cu 00 


(0 


• 03 O' 
O' O 

ro 

CO 

I 

S3 

CJ 

o 

o 




>Mm»i 






O 




i 

OOOO'i') 


c 

COMHOfJ 

BLOCK PBLK-PRUOUAM COUNTERS ANt) CONSTANTS 

PI’LK 

o 

OtM’OAO 


c 



PI'LK 


OOOOM 



COHMUN /PRLK/ 

PI'LK 

© 

(i0O()A<! 



1 XPHHKf ISO) f lP7IF*n'TYPt,lPlHH*lltC0( lb) »TPWHK(t50)tiTEMl'«) ♦ 
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JIM 

Q 

oobo/i'> / 

c 



U'LK 


000070 

c 

COHMOH 

ntncK ruLK-CPUPwlNO |iF.ADEH and uaia 

CI'LK 


OOOO/l : 




CI»LK 

O 

0000 /<! 


COMHUN /Cl'LK/ 

cplk 

n 

90C073 


ICr.HNfrKl/AMt (d) .CCOUNt 

lhlk 

1 

nono7'i : , 


?1CCAM ICKh(;*l( ZnNE,rcS1PA»IC3UbStICl OW(B).lCHlin) 

CHLK 

0 

000t)7b 

c 

naho 

UFSfKTPTlt'U 

lmlk 


0000/6 

c 


cPn'’6ino KLrUPO no. 

Li'LK 


000077 : 

c 

CFNami 

FIlF NANL -*CHOPW|»:Ot(PA4) ' 

Ll'LK 

; O 

000078 

t 

e^■NAh^ 

LAlJfL FiLf NAHi -MUST MATCH CFMAMI 

LPLK 


000079 

c 

cGonti 

LPoPnINO i:uiInTnY to (AU) 

U'LK 


OOOOf.O 

c 

ICCAGK 

GP()P«1Nn llASt NO. KPtJM lAHfcL ■ 

Ct’LK- 

0 

Qf/oi.m 

c 

iro run 

MO. UF CNOP N InOUwS (8) 

CELK 


fil'iiof'e 

c 

irKH; 

ci-of’aini' 1 EOiniJ m 

Ll'LK 


ooo'jf'j 

c 

ICZdUf 

GRnPNiNO Z0"iL m 

Ll'LK 

o 

ooooHa 

c 

IC5IKA 

Ll-uPWlND SIPATA In 

C.MLK 


oonuoa 

t 

irauijs 

tl’uPWTND SUHSTHAIa IT) 

Ll'LK 


000006 

c 

irinw 

start UATI OF 8 AINnOWS ZULU-Rt;i ATIVE JAN 1950 

CI'LK 

o 

0 0 0 08 7 

c 

inu 

STiiP UATI flF U wiNnOWS ZUH)-HtL AT IVE JAN I9bO 

Ll'LK 

1 

0 0f;0 8o 

G 



AI'LK 

B 

0 UiOO n 7 

c 

cntmoN 

f'LOtK AULK-ACulllSI file AND l?tPO«I VA«lABLfT6 

ANLK 


oonooo 

c 



Al'.LK 


QOPO'll 


COMMUli/AUl K/ 

AHLK • 


00 0 0'’^ - 


1 ACHM,A|-MAK(?) .AFTPL » AN'Aru(4?b) f 

Al-LK 

/■fc 

\/ 

oonooi 


Pl ACMl (4) .lATOl # TAPfiT (?'jt4) t lAPAr.»TANtlM*I.ACNfl (4) 

JIM 


000004 

c 

NAME 

DFsCKIPTiOn - 

ai-lk 


00009'J 

c 

ACM'/ 

CliKPtMl KliCOHO NO. 

AI'LK 

o 

Oonu'»6 

c 

aenah 

lahel f'Tlf NAKtFAruiiisi ♦ , 

ai-lk 

S' 

000007 

c 

AF1»L 

llfAllFH 1') A4 

AI'LK 

t' ■ 

000008 

c 

A'IACO 

on. OF AriUTMT IONS SFLEGTEO fop FACH of 426 DAYS 

AI’LK 

• 

000009 

c- 

lACNl 

lOTAL on. OF AcrtSSFS K)H EACH OF 4 WlNOOhS 

JIM 

■ D 

ouoioo 

c 

lA tOT 

toTai mu. of AroiiisiTinNS fur all 4 wiNon«s 

anlk 

i * 

oootoi 

c 

lAP^r 

IMntX To SE6»EFKR ACOUISITION (1-150) THAI lOtMTlEItS 

ai<lk 

r o 

000 1Q^ 

c 


A r.LLtCTF.U SF(.MLnI. I aPNT < I , J ) = H1NuO« 1 THHOUGH 4. 

AI'LK 

;. ' 

000 1,03 

c 

lAl’AG 

Acnuisniofi RtPuPi cukiuni pagf" nuhoeh 

ahlk 

r, 

nuoro4 , 

c 

lANLIN 

Ac'!OISI rUtN RtPUNI NO. LINES HrHAlNING CHHPENT PAGE 

AI'LK 

[ o 

npio'j: 

c 

1 ACHIL 

NO. OF ILGil ACnUtSI 1 IONS SFLtC'tn FO.R EACH OF « HINOOWS 

JIM 

fi 

000,106 

c 



U'LK 


000107 

c 

COMMON 

BLOCK iolk-tanuai. input PaHAMeTEPS consiants 

IPLK' 


OOOlOB 

c 



U'LK 


00 01 (|<7 


COMHUN /IMLK/ 

U LK 


00 0 1 1 0 


tXlTTLl 1?) .AISA ir.f XKOIIN.IKTIU 16) ♦ 

JIH 

■ ^ 

000 1 It 


?ir 10(3) . lACASr , IMlASt.IwCASK. ll'CC. IS AN6t lPtGtIZONF.fi IFILfcflOK ILF » 

U'LK 

1 

000 1 l^ 


5ISMLI ,TCFlLH,IAMt( tlNl IMlf 

U'LK 

ri" i 

0OO113 


41Et<f'T.l('«FI 

U'LK 

o 

000 1 1 4 


LOGKAl IPRPIf il KPI ' 

U'LK 

1. 

' 

boo j ta 

c 

NAME 

III SCiUPl ION 

ll'l.K 


0 00] lb 

c 

XIIIL 

iUHdM Case OIMENTLD pane hue from 1NPUI(12A4) 

U'LK 

: O 

000 11/ 

c 

XTSAt.f, 

' hlllllMIIM ;,HN ANi.l r IN IIAOIANS fH(>M INPUI 

m K 


ooorirt 

G 

> f LIUlM 

blHil-INY 111 I'MN', InI'Hl (Ain 

IHLK 
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!■# M 


i : 



1 

0001 jq 

c 

IMTTL tNoP WINDOW lints, TITI.E F0« EACH WINDOW OCCUPIES 0 H0KI5S 

JIM 

0 

oo:oi;’0 

t 

aT ? CtlAKAUl.WS PKW WOHI), 

JIM 


ocni?i 

c 

iriD COLUMNS 7''-«tJ OE TNPU T - EAHD 3A2 — 

IMLK 


nonl?^ 

c 

lACASE ArijUlSl FILE CaSE ND. MiOM INPUT 

lO-LK 

Q 

6ii0i?3 

t 

ISCASE SlOPtFLN CASE NO. FpUT INPUT f 

II'LK 


000120 

c 

IWCASh CPoPrtIND CASE NO. FPUM INPUT 

II'LK 


OOOlP'j 

c 

IPCC MAXIMUM pENCtNI C( OtlO LOVER ♦ lO-TO HE USED IN StfiHENT StLECT 

It'LK 

Q 

000120 

c 

ISANK MImIMUM UMiREIS SUN anoLL »100, (IN OECHFfcS) (14) 

lULK 


000 1?7 

c 

iRtc WFGlot! ID f'RUP Input fiJ) 

IIILK 


000 i?a 

c 

I7UME /OnF 10 HUIM INPUT (15) , - . 1 

11. LK 

0 

can 12 V 

t 

IIFI.Lt LOl.ICAL UNIT MU. FUR CAl<-U INpUI i 

II'LK 


oo0:i:50 

■■ 'C 

lOMLt LOl-.KAC UNIT nU. FOP RtPORt OUTPUT 

IMLK 


oooni 

c 

ISHLE LUiJCAL UNIT MU. FOP SLGhFFFH DATA ERt 

IFLK 

0 

ooon<» 

c 

laiLF LOGICAL UNIT Nu. fUR i CkOPW 1 nOO« EILE 

IRLK 

a 

oonni 

,c 

lAFlll LOj;KAL UNIT MO. FOP A(UUlSlIION FILE 

HLK 

1 

noAi 

c 

INLINE NC. LTNFS PER PAGF 

iblk 

:d 

000 1^‘j 

c 

IPHPI Pt’OCtSSlNG LOAD HF.PoRT FLAG ( T = PIU NT. FfcPORI ) 

11 LK 


ooo ! St3 

c 

ICRPT AroUlSlIIllN (CI.OP HTNOUW) RFPORT FLAG (TsPRFnT REPORT) 

IPLK 


0001 17 


UTMFNSiON KApNrCl0u)»ITFMPl(2S)*lTtPP2(2S) 

AWwTA 

0 

OUOlStt 


DTMFNSinN KX(lOO) 1 



OOOllV 


tOUIVALFN(;t(KAPNT(n*IAPUmf 1)) 

ST T 1 


000 1 ao 

c 

TtSl FTRSI TINf flag 

AWRTA 

0 

0 0 0 1 (1 1 

c 

L f 0, WRI IE TRAILER 

AV RTA 


ncni ii2 

c 

fc J Ot WRITE HtAUEH 

AKRTA 


0001 03 

c 

r.T 0, WRTIE ACUOISIIION RtCORO 

A!' KTA 

0 

0001 on 


IE (irFTK)20,10»30 

AWIvTA 


0 0 0 1 0 

c 

WRITE HtAOfK RFCOKD 

Ax>RT,\ 


00 0106 


to DU 11 I=lt6H 

Jin 

0 

00 01 07 


IPr(RK(l)=n 

awrya 

1 

0 0 n 1 C fi 


1l , LONTlMlF 

AN KTA 

1 

000109 


IPwrts n 

JIM 

/''X 

nooi-'^o 


WRITL (lAFlLF.) AFNAM, 1 AC ASE* ISNO A Y ♦ IPNCW* (iMtTLa) tL* 1 * lA) 

JTM 


oooi';i 


P. flCCAGi jTSCaSE* (lPWRK(L)fl.sl«a«) 

JIM • 


OOP! St' 


IPFTF= 1 

JlM 

0 

0 0 0 1 s 3 


ACK'UO . H I : 

AW RTA 


nooiso 


GOii'i 40 ■ s; .J 

AWHT A 


nooisb 

c 

WRITE Thau ER-- SET UP FAKE UEIAIL HECOHO 

AWRl A 

0 

0001S6 

?0 uo ?1 I=lt 100 

AWRTA 


ooois? 


KX(7) =0 



000 1 ';« 

?l cONTU'ur 

awrta 

0 

OOOlSV 


SruUN=Af TRL 

AWRTA 

1 

oOOlPO 


lSRfb=V 99 , 

AWRTA 

1 

0 0 0 1 0 1 


lS/: 0 Nr =999 

AWRTA 

0 

ooolpa 


GO TO 6S 



000 lOi 

c 


JIM 


000 io« 

30 tnNTIIJuE 

JIM 

0 

oooros 


00 <>0 l = l«100 



nOoiOb 


IX = KaPNT(I) 



000107 


IF (IX .Mt. 0)0,0 TO 45 

• 

0 

00016B 


KX(I) s 0 • , 



n 0 0 1 67 


(.n TO 60 



pool r\) 


45 KXm = IKDAY(IX) 


- 0 ? 

ooor/i 


60 COr*TP(Ul 


I 

OOP 172 


6 b WRITtflAFILr.)(oroUN,lSKEOfISZONF,lSSTRA«lSUHStlSSEG» 



000173 


l(KXfI),T=l,loO),IAirm 


w 

0 0,01 jn 


IT (Tl’f ir .LT. u) ruD Til t IAfILE 



oopi /b 

c 

INCKEMINT PtCUHU COUNT 

AWRTA 


i00O17b 

40 ACK^: = Acf^N♦ 1 

AKRTA 


000177 


rf tuhm 

awrta 


nun 1 7(1 


twj) ■ 

awrta 


oo 

8 § 
w fe 


i§' 

NS 
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• fLT BiNU(:o»i# 7 Sioonf ♦ l 


oooool 

iPOODO.! 
!0 U 0 0 0 5 
000 ooa 
00000!> 
OCOClOb 
00000 / 
oouuoo 

0 0 0 0 G V 
OUOO 1 0 

00 con 
0000 
oonoi i 

OO'VOI J 
OOOO 1 <3 

oono l !. 

iOOCOl / 

loooo 1 a 

0 0 0 n I 

onoopo 
000.)? I 
ouoo?i; 
0000?i 
OonoJ’J 

0 0 00?‘J 



QC00?6 

Q 

r \ 

nRf'u?/ 

0M00.‘’b 

nu0i)?9 

O 

oonu AO 
0000 <1 
iiOonoT? 

o 

■JOUOi) M 
0000 Aa 
OOOOVj 

e} 

0 0 0 0 A b 
0000 A/ 
0000 AS 

O 

5 

nonijAv 
nono'i 0 
ouno'J 1 

O 

OOOO'I? 

oono'ii 
0 0 n 0 '1 0 


oooon'j 

0 UiViiO(>: 

ooouo; 

OOOOHO 

oonu'iv 

ooooso 

oonuM 

oouiisa 

oooosi 

oooo'>‘» 

0 0 <1 U'i‘j 
OOOfl'.O 
OliOdS/ 
OOOuStV 


: 3 ttblUlSI|lNF f 5 IMbCl,(IVAL»NDIU»I 0 UT) . blNBCO 

DlHfN.OinM inuT(b) - _ BTfJtiCO 

(««•*«**«***«•«»«*****«*** 

C : bjNRcO' 

C ROUT INK BlMbCO _ : UlNHcn 

C : BlUBC.P 

t HURPOSt— TO CO^VERf A^iO IMTEOFH 10 DISPLAY CODE -AN'O-PtACfc-CHAR-i -|3lM'cD 

t SIRIMG OUTPUT TN AN ARRAY NAl (N 15 INPUT) blN'ICD 

c ; : ' BiiiUcn 

C LINKACL^^^^^ - biNHCD 

C binary iNTEOtR . BlNBCD 

C NDIO» NO. OF DIGITS TO OUTPUT BTnRCD 

C lOUT, ORIGIN OF THE OUTPUT CHAKACTEH ARRAY lllNHCO 


routines CaLLFO’ 
LOCAL VARTaBLFS 


suiiscHTPT Into output array 
current VAI uf of least sig. digits 

NO. DIGITS RFMAINING TO PROCESS 

VAt UE Of CURRENT MOST SK;n!EICANT DIGIT 


C COEIHENTS algorithm IS OFSCRtUFO AS FOLLOWS blNHCO 

c 0 PHni'Ucrs right justififo o uiuih.d 

C - PRoDUcFS LEFT JU.5HEIED - . biNncD 

C ♦ PRODUCED EUR OUT OF RANGE IUm'IC.D 

C b RLaNK PRuDUCED for LLAOING /LROS UInI'.cD 

C NO, GENFRAlEO KRUN ElET TO RIGHT BY KFOUCING blNRCO 

C NU. RY DECREASTNG PORLRS of 10 •" IUnI'CO 

C blNbCO 

C»**99**»*9*»*999»9»»9999*9* ♦♦»♦♦•♦♦♦*♦»♦*»♦»♦»»♦*!»♦♦»»♦ I NRCO 

C - ^ — hulk 

C COMMON RLOCR PULK-PR.UGK AH CflUN T ERS AND CONSTANTS (M>LK 

■t . ■ ; ‘ ^ ^ r'^ ! ri.LK 

COMhual/prlK-/-:. - W»LK 

IXPnRK(iR0T,IpFTFiIRTYPE,lPERKflRC0(15),IPKRK(lS0),lTEN(5)« PRLK 

?IPEFLG( 1 A) * TPEUE pUtK 

logical IPhUF 


c name: 

C XPHHK 
t IPFTE 
C IPVYPL 
C I PERM 
C IRCO 
C. MEN 
C IPhRK 
C IPEOE 
C IPt.ELG 


or SCRIPT IDN 

El nAlING POINT WORK AREA-OIKENSTON 150 

FIRST time FLAGf OrE TKST TIME , 1 sSUbSt OUFN'T *-p 1 =L AST) 

lYpr wheat (o=unidlnt lEan» isATNitr’* b=SPHiNr.) 
AruUIsniOH DAY when it exceeds HAXlMUHltRKOH PRINT) 
hfli.t UUTII ARRAY/0/l/^/i/«/b/o/'7/ti/9/ /-/0/*/f/- 
Priwl H.S UE IIH ( t , I 0, 100» rouo, 1 0000 ) 

INrFGER ViDHK AKFA-UTHENSION ISO 
EM(\ UF Fr(.i; M AG MRUE = r!.n EIIL) 

EAIAL LHHOR HAG FUR IKROR 1-ii UsEATAI.) 


IMI I IAI.I/L LOCAL VARTABLFS 


J=1VAI 
1 = 1 

K= Null. 
IHClU t ) = 


IHCDOn 

TE.bl INPUT VALUL 0 ,ti| GF I I Vl‘ , OR OUT OF 


r.an';l 


— f-- 

- S, I 

<"■ 1 




a 




i 

[ 
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\ 

OOnos«J 


lF(J)l0t20«l0 

BINHCO 


OOdohO 

c 

TVAUU. IS Mtr.ETlVt, 

biNHcn 


oobo^.i 

lo 

inuT(1) = IHCI)(Ul 

uTiiOcn 


noooftt? 


K=n-l 

HlNOCO 

'€> 

OODOhi 


1 = 1*1 

iunhco 


nono6« 


J=-.l . : . 

blNHCI) 


ocJoo^v 


Goto \i) 

btfJUCO 

O 

000066 

c 

IVALUt: IS 7ER0 

ItlNGLO 


000067 

?0 

imjT(KDTG) = niCD(13) 

lilNHCP 


000060 


GOtn too ; 

lilNHCO 

o 

00'606V ^ 

c 

Test inkdt value in range 

lilt, lien 


noi]o70 

lo 

N= J - nFN(K*l) 

J 1 H 


00Q071 

«■' ■ ■ • ' 

1F(N.|,T.0) goto S't 

blM'cn 

0 

oooov.; 

c 

IhPUl value out of KANGt 

biNiicn 

' 1 

000070 

flo 

10UTtHolG)3l(,Con4) 

blNiicn 

' 

000070 


Goto loo 

bTNHf.n 

o 

0000 7>> 

c 

CONVTKT F.ACH OtGlI FNON LEFT 10 BIGHT 

uiunen 


00007(> 

so 

IT = T 

blMjeo 


000077 


on 70 l=IIfN|)lGtl 

bl:i'U;i> 

o 

noooV'i 


N = J/lTt6‘(K) 

biNi'en 

\: ■ 

00007V 


in(jTU)siHcn(Nti) 

blNiicn 


ODOOliO 


U=ti« 1 TeN(K) 

lUNOcn 

O : 

OOoyfil 


J=.l-K 

blN'lLO 


oootiPa 


K = S-1 

blNlitO 


0000 Hi 


11 (I'.l L.OIGOTO 70 

biMneo 

o 

000004 


mu>(i)= Tucudij 

jtm 


000 (!H!j 

70 

tOi.Ti'iur 

biNbcn 


nooo»i6 

loo 

lO'TlIHri 

blN'icO 

o 

000087 


t>ii) 

biNHCD 


I 

o 



'U 

O O' 

iO. 

1 

f 

8g 

c 




iQ 

I,-; 

I • ■ 


i . 

io 
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(• FLT BLKOAT, l»760«2ht 503S5 


OOOOOl 

OU0002 

oonooi 

000004 

oooooi 

OOOOOb 
0000 07 
0 0 0 0 0 0 
00 00 04 
000010 
QOnoi r 
0000 t2 
000013 
0 U =‘'0 10 
00001b 

oono 1 0 
noooi / 
ooooia 

0U0014 

000020 

ooooV’’! 

niioyp^ 

OOOijPi 


Ul-OCK data 

Bl UCK DATA FUR PULK, IRLK t AbLK «CBLK tSBlK 


blKHTA 
1)1 KOTA 
bl KOTA 
PI'LK 

C CllMMON IlLOtK PBLk-PROGHAM COUNTERS AND CONSTANTS POLK 

c POLK • 

COMMON /POCK/ K’LK 

lXPm;A{lS0)*TI'F7F,IPTYPeflPtRR»IHCD(15)tlPWhK(15C)fITE;N(S)t POLK 

2IPpFLr.(li1 .Tl-POF PI'LK 

logical IPtni 

c' PULK 

C NAME UPSCKIPTION PPLK 

C XI’WRK FinATTfir: POINT WORK APtA-OIMENSION ISO PI'LK 

C JPFTF FIkSI I!HF FLAO(0=FTHST TINT. l=SUbStOUFNT .-l=L AST) HILK 

L IPTYPI: lYOF r'liVf.T (0 = ONXptN'riUtO. l = nlNTtP.» b=SPRlNn) Jill 

C IPFRH AroOISinON BAY RutN II LXCILDb MAXlHUMIfcHHOH PRINT) fl’LK 

C Ilicn hdLlL'-’ITH ARHAt/ 0/1 /2/i/4/b/6///<5/4/ /-/O/*/./ PIUK 

C ITL‘1 POHrUS OF UN ( 1 ♦ I 0, lou. 1000. 1 0000) PPLK 

C IP/IRK II'TIGFR llORK AKF A-0 1 MF NS ION IbO PT'LK 

C IPFOP tfo OF FU t flag fII>Ut=FNO FILL) PI’LK- 

C IPLFLO fatal LKi;0|< FI.aC pur F HRUR I - 1 i (T = F AT A| ) I'l'LK 

data llU'D /lUO. Ihl . IH?, 1 1 i 5 . lli'l. Ihb. tub. IH 7 . IhA.IHR. IH . 1 H-. IHO . I H* ULKDI A 

l.lH./.HLN/ 1,10. 100.1 000 . looon/.iPi Flo/ 1,1ft, 1,1 .i.ttl»lti»i*o.o/ 


o 

oooopa 

. c 




ULK 


OOOliP'j 

c 

COMMON 

flLCcK IIHK-HANUAL INPUI PA»AMLTfc.RS CONSIAHTS 


INLK 


n 0 01 ) ? 0 

c 




If IK 

o 

noou?/ 


COMMON /I'iLK/ 


II'LK 

1 

OOOOPB 


IXlITLf 1?) .AISiKn.XlCOON.lNlTLdO). 


JlM 

000 0?4 


?jr,ilH3) . 1 aCASF, TbCA.SL.I'RCAsE.IPCC.lSANlif lRtr.fWONFfllFILt. 

lOF ILF, 

IHl K 

o 

-OOOU^O 


US, 

FU.( ,ICI1U*1AHlF .INI INt. 


IHLK 


o«oo''^i 


ilH'HPI , ICKPI 


Ifl K • 


rO'JOoi^ 


LOUTCAl U’KPI, ICRPI 


II LK 


1000033 

c 

NAMF 

ursnuPTiON 


IPLK 


n000A4 

c 

xtttl 

M-.PIVRT CASE OMIENUD PAGL TlUt FROM 1NPUU12A4) 


idlk 


00003b 

c 

XTSANO 

MlNl.'lillM SOI ANOLL in radians FROM INPUT 


lOLK 

0 

00OQS6, 

c 

XIUJUN 

CIIUNIRY ID FMIH IMPUI (AO) 


It'LK 


000 0 U 

c 

i-jitl 

LI'UP WINOO* iniLS. titlf for FACH window occupies 8 

WORDS 

J IM 


0 1) (1 n 3 B 

c 


a1 ? CHARACURS pfR word. 


JIM 

o 

00003V 

c 

irio 

Cni.l'MMS 7b-H(l IJf INPUT CARO 3A2 


II'LK 

! 

000040 

c 

lACASr 

Af'jNlSI HL! CaSL No. from input 


II'LK 

000 0 'll 

c 

ISC ASF 

Sr-l.RUtR CASt NO. FROM INPUT 


lOLK 

o 

0000'j2 

c 

I'-iCAsr 

'CRoPnlNI) CASL NO. I ROM INPUT 


II'LK 


0 0 ') 0 '( 3 

c 

IPtC 

HAXliUlM Pl'Pt LN! u Ulll) COVER » 10-TO BE USED IN StGHENT 

StLECf 

II’LK 


ouoo'i'i 

c 

ISA'IO 

HInINUH 1,F(;-'LF3 son ANOI t »I00 (IN DtCRCES) (T4) 


II'LK 

o 

OUDO'IS : 

c 

iRi.r; 

Rf GlUN It) I ''UM INI'UT (15) 


II'LK 


oono'ih; 

c 

I70NL 

/f'Nl (0 MUM IM'UT (13) 

• 

II'LK 


000047 

c 

IIHLT 

logical unit NU. for CARO INPUl 


II'LK' 

Q 

oooo'itl 

c 

lOf ILE 

logical unit no, fur RLI’ORI uuiput 


II'LK 


OOOo'lO 

c 

iSf ILF 

lOivICAL UNIT NO. FUR SlGRFIfR OAIA FRt 


II'LK 


OOOObO 

c 

IFF ILF 

logical unit HU. FUR CROI-'h 1 NUL'rl MLF 


ll-LK 

o 

OOOUSI 

c 

IAULF 

logical unit NO. FUP ACDuISIIION FUt 
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PART I 


PROBLEM description FOR 
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Problem Description for the Post Processor 


1.0 SCOPE 

1.1 PROGRAM CAPABILITIES 

Depending op the user specified option flags, the POUT pjrogram 

will read from associated LACIE file(s) and produce a printed ^report. 

... i i ! 

The four major types of reports that can be produced are: 

1. Substrata Reference Data Report the data is processed 
from the Substrata Historical File (SUBHST). 

2. Population Mean, Standard Deviation and Histogram’ 
Reports. There are five parameter types in this group. 
Each parameter produces its own report. 

a. Population Sampling Error (Segment Truth File - 
SEGTRU) 

b. Population CAMS Error (CAMS Output File - CAMSF) 

c. Population Yield Error (YES Output File - YESOUT) 

d. Population Area Error (CAS Cum Output File - CASF) 

e. Population Production Error (CAS Cum Output File - 
CASF) 

3. Histograms of Monte Carlo Statistics Reports. There are 
four parameter types, in this group. Each parameter pro- 
duces its own report except for Confidence Level which 
produces six reports. All data is processed from the CAS 
Distribution Output File (CASDIS). 

a. Monte Carlo Area Error _ : I 

b. Monte Carlo Production Error 

c. Monte Carlo Yield Error 

d. Confidence Level 

• ! - Area Confidence Level Est/Est 

• Area Confidence Level True/Est 


1 


i 
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Area Confidence Level True/WC 

Production Confidence Level Est/Est 

.1 

Production Confidence Level True/Est 
Production Confidence Level True/WC 


4. Frequency of Sample Segment Acquisitions Report - the 

data is processed from the Data Acquisition File (ACQUIS). 

1. 2 METHOD OF PROGRAM DEVELOPMENT 

The program will be developed in FORTRAN. The direct access 
file processing is the only known conversion problem and will be handled 
in one routine. Modular programming techniques will be used throughout 
to make the program development, modifmation and debugging easier. 

1. 3 OPERATIONAL ASSUMPTIONS 

i. : ' ; 

• Only one major type of printed report will be produced per run. 

• Populatiob reports will be produced by option for either zone, 

' region or country level. ' 

• For Population ox‘ Monte Carlo reports any one, a set, or all 
of the parameters can be selected in one run. 

• The Substrata Historical File will also be required to produce 
the first three Population reports. 

• Printed report control will be by card input. 

I • • 

All control card input data will be echo printed. 

All control card input data will be checked for errors before 
any error will cause the processing to terminate in the middle 
of a case. 

External print units willibe in English, an optional override is 

j t i 

available for metric units via the control card input. 

The Headpr Card and the four Data Cards are required input. 

All data to be processed will be obtained from disk (or tape) 
files. 

All input data files will be checked for correct case numbers. 
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2.0 INPUT 

Program input will be in two forms. 

1. Card input for identification and option selection. 

2. File input for requested option data. 

2. 1 CARDS I 

2. 1. 1 List of Data Quantities 

See Table 2-2 for Input Data Description. 

2a 1. 2 Card Formats 

"POUT" is punched in card columns 75-78 of all cards. A sequence 
number is punched in card columns 79-80. 

See Figure 2-T for Data Card Formats. 

2. 1. 3 Deck Set Up 

1. Header Card - sequence 01 

2. Data Card 1 - sequence 02 

3. Data Card 2 - sequence 03 

4. Data Card 3 - sequence 04 

5. Data Card 4 - sequence 05 
2.1.4 Rules for Entering Data on Cards 
2. 1. 4. I General 

1. I Integers must be entered right- justified. 

2. Alphanumeric names must be entered left- justified. 

3. F format numbers must have the decimal point present, i. e. , 

F6. 1 +XXX. X 

4. The card sequence numbers in CC. 79-80 must be present on 
all cards. 
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2. 1.4. 2 Spepific Fields 

The correspondence between the RPTYPE, PARMTR and ICASIN 
input values, and the required input files versus the produced reports is 
shown in Table 2-1 below. 

Histogram ranges, PARMTR, BIOWD, WPRTY, IPRD input values are 
required only if RPTYPE=02 and =03. LEVEL is required only if RPTYPE=02. 

, ; • Table 2-1 


RPTYPE' 

PARMTR (I) 
where I = 

ICASIN (I) 
where I = 

Req. Input 
Files 

Report 

' 01 

- 

1 

SUBHST 

Substrata Reference Data 

02 

1* 

1 

SEGTRU 

Population Sampling Error 


2* 

2 

CAMSF 

Population CAMS Error 


3 * 

3 

YESOUT 

Population Yield Error 


4 

4 

CASF 

Population Area Error 


5 

5 

CASF 

Population Production Error 

03 

1 

1 

CASDIS 

Monte Carlo Area Error 


2 

2 

CASDIS 

Monte Carlo Production Error 


3 

3 

CASDIS 

Monte Carlo Yield Error 


4 

4 

CASDIS 

Confidence Level 

04 

. 

1 

ACQUIS 

Frequency of Sample Segment 
Acquisition 


*SUBHST file also required for each report. 

2. 2 FILES 

Any one of the following files, depending on the report option selected, 
will be input. The Substrata Historical File will always be input when any 
of the first three Population reports are selected. ■ 

SUBHST - Substrata Historical jFile 

SEGTRU i - Segment Truth File I 

CAMSF - CAMS Output File 

CASF. - CAS Cum Output File 

CASDIS - CAS Distribution Output File 

ACQUIS - Data Acquisition File 

YESOUT - YES Output File • 

Complete descriptions of all files used by the POUT program can be 
found in the Reference File Description Document. 





f -fi’it 
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Table 2-2. Input Data Description 


Name 


Symbol 


Dimension 


Nominal 

Value 


Range 


Units 


Description 


IHEADR 


RPTYPE 


AUNITS 


VJi 


!■.' 


START 
‘in TV LI 
BREAKl 
INTVL2 

* " I i ■ 

'• BREAk2 


12 


Blanks 


1-4 


0 , 1 


1 

o 

o 

• 

0 

-999 

.9 

to 



999 

.9 


100. 

0 

0. 1 

to 




100 

.0 


-100. 

0 

-999 

.9 

to 



999 

.9 


5.0 


0. 1- 

100.0 

100. 

0 

-999 

.9 

to 



999 

.9 



72 character ease header which prints out at 
the top of every page 


Major type of report identification 

01 - Substrata Reference Data Report 

02 - Population Mean, Standard Deviation and 

Histogram. Report 

03 - Histograms of Monte Carlo Statistics 

Report 

04 - Frequency of Sample Segment Acquisitions 

Reports 

External print units flag i 
0 - English units 

Wheat area value in 10, 000 acres 
Production value in 100, 000 bushels 
Yield value in bushels/acre 
^0 - Metric units 

Wheat area value in 1000 hectares 
Production value in 1000 metric tpns 
Yield value in quintals /hectare 

Histogram interval start value 

» 

Histogram interval value in percent 

Histogram breakpoint to change interval value 

:> 

Histogram interval value in percent J 

Histogram breakpoint to change interval value 
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Table 2-2. Input Data Description (cont'd) 


Name 


INTVL3 


$TOP 


Symbol 


Nominal 

Dimension Value 


Range 


Units 


PARMTR 


m 



Description 


Histogram interval value in percent 

Histogram interval terminal value 

A maximum of 51 range intervals is allowed 
although less may be used. Intervals may not 
overlap. 

Report parameter type option flags for 
RPTYPE = 02 or 03. =0 - no report; ^ 0 - 

produce report. 

PARMTR(l)/0 RPTYPE = 02 Produce 

Population Sampling Error 
Report 

40 RPTYPE = 03 Produce Monte 
Carlo Area Error Report 
PARMTR(2)??0 RPTYPE = 02 Produce 

Population CAMS Error Report 
^0 RPTYPE = 03 Produce Monte 
Carlo Production Error Report 
PARMTR(3)?^0 RPTYPE = 02 Produce 

Population Yield Error Report 
9^0 RPTYPE = 03 Produce Monte 
Carlo Yield Error Report 
PARMTR(4)?«0 RPTYPE = 02 Produce 

Population Area Error Report 
40 RPTYPE = 03 Produce Con- 
fidence Level Report 
PARMTR(5)9^0 RPTYPE = 02 Produce 

Population Production Error 


PARMTR(3)9^0 


PARMTR(4)?«0 


PARMTR(5)9^0 


If RPTYPE = 02 or 03 and all PARMTR value 
are zero, then all reports of that RPTYPE will^ 
be produced. 


on-n>T-ft7.nq-frf:/!:87. 




Table 2-2. ' Input Data Description (cont'd) 


Symbols 


Nominal- . 

Dimension^ yalue Range 


Units 


Description 


0-9999 


Case number identification associated with the 
required input file. A case number must be 
input for every report produced. Relationship 
between RPTYPE, PARMTR and ICASIN 
follows. 

ICASIN(l) = case no. RPTYPE = 01 

= 02 PARMTR(1)^0 
= 03 PARMTR(1)?«0 
= 04 

ICASIN(2) = case no. RPTYPE = 02 PARMTR(2)/0 

= 03 PARMTR(2)9^0 

ICAS1N(3) = case no. RPTYPE = 02 PARMTR(3)^0 

' =03 PARMTR(3)??0 
ICASIN(4) = case no. RPTYPE = 02 PARMTR(4)/0 

= 03 PARMTR(4)/0 
ICASIN(5) = case no. RPTYPE = 02 PARMTR(5)?iO 

If all PARMTR values are zero for a RPTYPE = 
02 or 03, then all the ICASIN values (case 
number) must be entered for that RPTYPE value. 

f 

Parameter report level indicator’ for 
RPTYPE =2. =1 - reports produced at zone 

level; =2 - at region level; =3 - at; country 
level. 


ICASIN (2) = 


ICASIN (3) = 
ICASIN (4) = 


0-9999 


Case number identification for the SUBHST 
input file. Required only when RPTYPE = 2 
and PARMTR = 1, 2 or 3. ‘ ' 


N 

» w a 
it* 

tvJ I 

• cr 
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Table 2-2. Input Data Description (cont'd) 


Name 


Symbol 


Dimension 


Nominal 

Value 


Range 


Units 


Description 


BIOWD 


0 , 1 


WPRTY 


0-4 


00 


IPRD 


3,14 


year: >64 
month: 
01-12 
day: 01-31 


Prediction bio-window flags: 

BlOWD(n) =1 to process bio -window n 
=0 otherwise 
for RPTYPE = 02 and 

PARMTR(2)^0 Selects by bio-window in 
record. 

PARMTR(3)^0 Uses last yield date in 
record. 

PARMTR(4)^0) Selects by bio-window in 
or PARMTR(5)i^0 / record, 
for RPTYPE = 03 Selects by bio-window in 

record. 


Bio -window priorities: 

List of bio-windows in decreasing order of 
priority, e. g. , 4, 1,3, 2 or 3, 1,0,0. Used only 
by RPTYPE = 02 and PARMTR(2)i^0 in conjunc- 
tion with the prediction dates below. - 

Prediction dates {up to 14 dates) for tl^e selection 
of data for RPTYPE = 02 or 03. . 

IPRD(l,n) = year - 1900 

IPRD (2, n) = month _ 

IPRD(3, n) = day ‘ 

The dates must be in ascending order. The first 
zero date terminates the list. 

For RPTYPE = 02 and 

PARMTR(2)i^0 Prediction date selected as 
a function of priority above 
and latest date less than or p 
equal to the input predictiorg 
date. 

PARMTR(3)^0 Selects the latest yield datej^ 
less than or equal to the 
input prediction date. 

PARMTR(4) or (5)^01 the input prediction •' 
and all RPTYPE = 03 ) dates must match with ' 

file dates; otherwise a ‘ 
message is printed 
and that date skipped. 
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DATA CARD 3 
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Figare 2-1. Data Card Formats (cont'd) 
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3.0 PROCESSING 
3. 1 OVERVIEW 

The POUT program is essentially subdivided into four areas of 
processing. The area executed depends on the major type option selected 
on the card input. The main program POUT will read the card input 
and then after error -checking will transfer to the selected option. The 
required file(s) will be processed and the printed report(s) will be produced. 
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■ REPRT2 
Popalatiori 
yield error 
report y 


REPORT 


REPRT2 
Population 
area error 
report 


REPORT 


















T 
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FREQAC 
Processes the 
data acquisitions 
file data to create 
the freq. of 
sample segment 
acQuisitions 

— nT 




FILSEQ 
Reads, checks 
formats, and 
passes file data 

through FILBUF 
to frI^qac 


REPRT3 
fFrequency of 
sample 
segment 
acquisitions 





Data 

A^cqi 

File 

(ACQUIS) 



STOP 
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3. 3 PROCEDURES AND EQUATIONS 


. 1 Initialization 


The general initialization tasks are performed by the main program 
POU T. 

1. Initialize flags and constants; set nominals. 

2. Read data cards. 

3. Process data cards for input errors. 

4. Determine report type to be produced. 

3. 3.2 Substrata Reference Data Report 

The Substrata Reference Data will be created and produced by sub^ 
routine SUBREF from the Substrata Historical File. 

1. The Substrata Historical File will be accessed sequentially 
through the file interface subroutine FILSEQ with RPTYPE = 01 
and ICASIN(1) = valid case number. 

FILSEQ is a subroutine that reads a requested sequential file, 
checks for a match on CASE ID and returns one detail record 
at a time to the requesting subroutine through the FILBUF 
common block. 

2. Process and sum the. data by strata, zone, region and country 
for the following equations: 


(1) XR(K) = 


AREA(K) 

XNA A REA PS 


where K is any substratum 


(2) HWA 


J 

= L XN(I) XR(I) * 10289. 712 
I=K 


XHPW(I) 

100 


(3) TWA 


J 

L XN(I) * XR(I) * 10289. 712 * 
I=K 


XTPW(I) 

100 


• T XHPW(I) 

/ ^ X vTNTtj C - V X BTPW(I) * 100 * XN(I) * XR(I) » 10289. 712 

(4) XINBS - L ^ ^ ^ ui«r A ^ 
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(5) XSIMBS = 


TWA - HWA 
HWA 


(6) XINCV = 


L IXN (I) *XR(I)* 10289.7 ^ *XCV2(I))‘ 
I=K 


TWA 



■ 

- 


zj 

(7) XS1MCV = 

J 

J-1 

J 2 1 

L (TWA(1)-HWA{1))‘^-^:' 
I=K 

■ J 

L (TWA(I)-HWA(I)) 
I=K 








2 

"TW/; 


3. Output of the printed report for each strata, zone, region and 

country as processed is produced by calls to subroutine REPRTl. 


3. 3, 3 Population Mean, Standard Deviation and Histogram Reports 

Population reports will be selected- (by input option), created and 
produced by control subroutine POPDRV. 

1. For PARMTR(1)^0 the Segment Truth File along with the 
Substrata Historical File (SUBHST) will be accessed 

. sequentially through subroutine FILSEQ with RPTYPE = 02, 
PARMTR(1)^^0 and ICASIN(l) = valid case number to produce 
the Population Sampling Error Report. 

2. For PARl\lTR(2)i^0 the CAMS Output File along with the 
SUBHST File will be accessed sequentially through sub- 
routine FILSEQ with RPTYPE= 02, PARMTR(2)?^0 and 
ICASIN(2) = valid case number to produce the Population 
CAMS Error Report. 

3. For PARMTR(3)^0 the YES Output File along with the 
SUBHST File will be accessed sequentially through sub- 
routine FILSEQ with RPTYPE= 02,. PARMTR(3)i^0 and 
ICAS1N(3) = valid case number to produce the Population 
Yield Error Report. 

4. For PARMTR(4)^0 or PARMTR(5)^0 the CAS Cum Data 
File will be accessed through the direct access subroutine 
FILDA. The required input data for either of these accesses 
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is PARMTR(4)?{0, RPTYPE=02 and ICASIN{4) = valid case 
number or PARMTR(5)^0, RPTYPE = 02. • and ICASIN(5) = 
valid case number. 

Each of the five parameter reports computes and sums the 
same equations except for the computation of the specific 
error and reference values which appear below the basic 
equations. 

(8) XMVAL = ^5^:^ * S^DELERR(I) 

it: 

( j J ) ^ 

(9) STDDEV=^^* S^(DELERR(I))2.i'':=(^L^DELERR(I)^ 

(10) XMPSUM = J^XMVAL 

L 

(11) SDPSUM = *STDDEV 

(12) PCDERR = * DELERR 

where each parameter type (below) for any K substratum 
or S stratum 

a. Population Sampling Error 

^ 1 XM(K) V 

(13) DELERR(K)=Q3y^^ S XTPW (L) -XTPW(K)J *XN(K) * XR(K) 


* 10289. 712 


(14) REF(J) = E XTPW(I) XN(I) XR(I) 10289. 712 

I=K 

b. Population CAMS Error 

“ , XM(K) 

(15) DELERR(K)= E (XEPW(L) - XTPW(L)) XN(K) 


*XR(K) ^10289. 712 


(16) REF(J) = E XTPW(I) * XN(I) * XR(I) * 10289. 7X2 
1-K 
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c. Population Yield Error 


S 

(17) DELERR(S) = (XEYLD(S) - XTYLD(S) S XTPW (I) * XN(I) 

' - I=K 

*XR(1) - 10289. 712 


J 

(18) REF(J)=L‘'!‘ 

s 


s 

S XTPW (I)*XN(I)*XR(I) -10289. 712 
1=K 


XTYLD(S) 


d. Population Area Error 

A VR R ^ 

(19) DELERR(S) = 

(20) REF(J) = L "^xN-r ' ^ 

I=S 

e. Population Production Error 


( 21 ) 


DELERR(S) = 


PRERRS 

XNT 


(22) REF(J) = S 


I=S 


TPRODS(I) 

XNT 


6. Output of the printed reports produced by subroutine REPRT2. 


3 . 3 . 4 Histograms of Monte Carlo Statistics 

Monte Carlo Histograms will be selected (by input option), created 
and produced by subroutine MCHIST. 

1, The CAS Distribution Output File Will be accessed through 
the direct access subroutine FILDA with RPTYPE = 03, 
PARMTR and ICASIN values for each parameter of this 
type required,’ 


2, Each of the nine reports computes and sums the equations 
(8), (9) aind (12) of Section 3. 3. 3 with J = XNT. Each 
parameter type is shown below where L = zone (Z), 
region (R) or country (C) level. 


a. 


Monte Carlo Area Error 
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(23) DELERR(L) = AERRL 


(24) REF = 


AEREFL 

XNT 


b. Monte Carlo Production Error 


(26) DELERR(L) = PRERRL 


PE REF L 


(26) REF - xiTT 


c. Monte Carlo Yield Error 

(27) DELERR(L) = YERRL 


(28) REF = YEREFL - 100 

d. Confidence Level (Country Level Only) 


(29) DELERR(C) = XCL 

where XCL = .CLEWA, 

CLA.TEC, 

CLATWC, 

CLEPRD, 

CLPTEC, 
or CLPTWC 

(30) REF = CLALL = 100 

3. Oiatput of the printed reports is produced by subroutine REPRT2. 

3. 3. 5 Frequencv of Sample Segment Acquisi tions 

The Frequency of Sample Segment Acquisitions Report will he created 

and produced by subroutine FREQAC, 

1, The Data Acquisition File will be accessed sequentially 

through subroutine FILSEQ with RPTYPE = 04 and ICASIN(l) = 

■ valid case number. 
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2. The percentage of the number of segments will be tallied 

by zone,! region and country for the bio -window combinations 
0 1 2 3 4 1&2 1&3 1&4 2&3 2&4 3&4 1,2&3 1, 2&4 
I, 3&4 2, 3&4 1,2,3&4 

3. Output of the printed report is produced by subroutine 


REPRT3. 

3. 3. 6 Method of Para meter Range and Histogram Com putations 
fo^r 3. 3. 3 and 3. 3. 4 Above 

If a set of range values is not input, then the nominal values will be 
used for all parameter s; see Table 2-2 for these values. 


As each parameter value is read from a file, the value is tallied 
according to the range interval it fits into. When all values have been 
read, the tally entries for each range are normalized by the total number 
of values read. The Histogram table is generated from these normalized 
values in the following manner. 




... , fgj are number values in range 1, 2, * 


51 


Maximum of 51 range intervals are allowed. 


Value 

Sum of Values 

^1 

fl 

1 : 

^2 

• s • 

^1 ^ ^2 

• 

• -.1 

• 

%1 

• 

£ j +£2 + ... +: 




Name 


J 


K 

AREA 
-XNA 
(AREA PS 

!xn 

ft; 

h 

|.K.. 1} 

IXHPW, 

P|’ 

IHWA 

I 

|HWA(K) ; 

S i 

[XTPW 

i 

i\ 

i ^ 

Itwa 

' I 

«r :| 

|twa(K)' 

jxBTPW^ 

IxiNBS 

fXSIMBS 

XCV2 



POUT Symbol Table 


: 

Symbol 

Description 

Source 

Used 

Range 

Units 

j 

All substrata in a strata, zonej region or 
country 


General 

1-3200 



substratum 


Gene ral 

1-3200 



Substrata land area 

SUBHST 

1 


Hectares 

^A 

Number of allocated segments in a substrata 

SUBHST 

1 


• - 

, 

Area per segment (built-in value = 10289. 712) 

■ 


' 


Hectares 

R 

Ratio of the true substratum land area to the 
gross-pseudo substratum (before exclusion) 
area 

1 

2, 3, 4,6. 13 
14, 15, 16, 
17, 18 



N > 

. , 

Number of agricultural segments in substrata 

SUBHST 

2, 3, 4, 6, 13, 
14, 15, 16, 
17, 18 


• 

•FW' -vI 'V' 

Historical proportion of wheat 

SUBHST 

2,4 




Historical wheat area (sum) 

2 

4.5 


Hectares 


th 

Historical wheat area, substratum 

2 

7 


Hectares 

PW 

True proportion of wheat 

True wheat area (sum) 

til 

True wheat area, K substratum 

SUBHST 

3 

3 

3, 6, 13, 14, 
15, 16, 17, 
18 

5,6,7 

7 


w 

0 

Hectares 

-J 

Hectares 

6PW 

Bias of true proportion of wheat 

SUBHST 

4 




Input bias 

4 

REPRTl 


% Historical 


Simulation bias 

5 

REPRTl 


% Historical 

CV 2 

Coefficient of variation for within county 
variation of PW 

SUBHST 

6 
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3.4 (y ttinued) 


POUT Symbol Table 


Name 


Symbol 


De scription 


Source 


Used 


Ranee 


Input coefficient of variation (CV) 


REPRTl 


Simulation coefficient of variation (CV) 


REPRTl 


Reading 


13, 15, 17, 
19,21,23, 
25, 27, 29 


8 , 9 , 12 


Reference value 


14, 16, 18 
20, 22, 24 
26, 28, 30 


8 , 9, 12 


Mean value 


Standard deviation 


XMPSUM 


SDPSUM^^ 




Mean of population sum 

Standard deviation of population sum 

Percent reading 


REPRT2 


REPRT2 


REPRT2 


Number of sample segments in the K 
stratum 


SUBHST 


Estimated proportion of wheat 


CAMSF 15 


I sample segment 


General 


Estimated yield 


YESOUT 


0-99.99 


True yield 


YESOUT 


S*"^ stratum 


General 


Number of Monte Carlo iterations 


SF 


CASDIS 


General 


Area error 


CASF 


I 28234-6028 









3, 4. ^continued) 


POUT Symbol Table 


Name 

Symbol 

Description 

Source 

Used 

TWAS 

WAg 

— — 

True wheat area for the S stratum 

CASE 

20 

: PKJiiRKti 

• : 


Production error 

CASF 

21 

' TPRODS 

PRDg 

True production 

CASE 

22 

^ AERRL 

— 

Area error 

CASDIS 

23 

A.EREFJL 


Reference value of area error 

CASDIS 

24 

" prer;rl 


Production error 

CASDIS 

25 

' PEREFL 


Reference value of production error 

CASDIS 

26 

, YERRL 


Yield error 

CASDIS 

27 

YEREFL 


Reference value of yield error (= 100) 


28 

CLEWA • 


Area confidence level Est/Est 

CASDIS 

29 

C LA TEC’ 


Area confidence level True/Est 

CASDIS 

29 

8 CLATW C 


Area confidence level True/WC 

CASDIS 

29 

^ CLEPRD 

h:: - 


Production confidence level Est/Est 

CASDIS 

29 

CLP TEC 


Production confidence level True/Est 

CASDIS 

29 

CLPTWC 


Production confidence level True/WC 

CASDIS 

29 

■ CLALL 


Reference value for all confidence levels area 


30 

1', 

i 1 


and production {= 100) 


• 

i' ro ; i . 





Ol 

■ ' 
, 

■ 

■ 





Ra^; 


Units 


Hectares 


Quntials 


Hectares 


1 


28234-6028-RU-00 

Page 229 


28234-6028-RU-00 

Page 230 

4.0 OUTPUT ■ • 

The major product of this program is its printed reports. 

4. 1 PRINTED DATA 
4. 1. 1 Reports 

The type of- report is determined by option on the input cards. See 
Tables 4. 1-4. 3 for format and report contents. 

4. 1. 2 Echo Print Input Card Images 

The control card inputs to POUT are printed out in the following 
format after all nominal values have been stored. 

HEADER 

AAA— AAA LPP SIMULATION PAGE 1 

1 , 

RPTYPE PARMTR ICASIN LEVEL ICSESH 

NN N N N N N NNNN NNNN NNNN NNNN NNNN N NNNN 

INTERVAL START INTVLl BREAKl INTVL2 BREAK2 ' INTVL3 STOP 
+XXX. X XXX. X +XXX.X XXX. X +XXX. X XXX. X +XXX. X 

BIOWD WPRTY 
NNNN NNNN , . ^ . 

IPRD I . . 

YYj MMj DD^ YY^ DD^ ^ > 

YY MM DD ^ ^ > 

n n n 















IM >( vl-aric;Ai. INCH) 


I'MJ CHAfiT 'D 

' . r f f • ■ ’ 'r ,i » 'j, »•» • Ti O', ri M i*)i ‘1. i inm 

►A** T»ni . . ..... ^ ^ 

,7 t 


. PAGE . 
DATE. 


“ fultt Ito&i ill liqltrll )-C 


Page 28 




{ 

: I 


I • t » j{ ■ 

; ♦ { t •» • 


! i 


j ; ii 

, 1 ; y 


‘ .1 

:::j|. 

. . . . fj - 

u 

' il 

iil«H 

* ‘ i I ;; . 


' il: 

. )|- 


;1C‘ 

jnj 

Uj 

‘n! 


• I '? ' A • f'n ^ 


HeAb-o\ 


Y. 'Pammcier 

)■■■'; 1 

dACB HiiweAY, 


■■’!■" '•■’T TTriTiTn 


■i L:.— ..-LlLi 


■I j’ t I -l’ C » 4 •• 


.icl 

'H 

*^4 

•?' L 

:4 

■3 6 




:i , -v^'i 

-i: t !='■ 

I ■ Il ji 

. . i' . ’ 


•1 


'l •:> 


• • t V |i . » 


1 

iriiiL 


YaJa""' 

I 


\r/t/& .-for. 

' I i 1 . , , : , . 


I : 

— 


! YWdf\i . I 

• ) 

. r j ; . . . 


M 


•ach iype. 


'nTrnTTTi 

/;ii *» -»| 


•i'l. c <:b* t -7 


'c^ RkfCr t 


FTTIT 

J.. I 


rpr 


n'm 

I »» f) o: :) » *1 

iPPSxriMn^-i 


r. Popn/a^ion ot. t4orwi p 


XxX.m m.XH< :// m.XXA^ ;r)i4.XX/ 

■ !/f ’ ■ 

.. .. 

t , 


. . . 1 . ; . 


3^. 


! -•- i . 




XXX 35 .■<•</(, XX Ip AYX.yM 

- Hi , j ..... , I 

H7 . ........ 


AID] 


■ I 


- ■ i 


.£! 


liATA rypc /Yu\A/AAAAri . AY'^,}<KK.^.6rD. DfmTfM . YAYMi . I'Jif- VAm& „yXi..Y)/.)i. 

: ^ I , 1 1 . . . .1 i ! ■ . . 

tfr ATJ-j>’Fyy\ XX/.X.XX . ; . . ;|72i. iBYrArX’p/ V<l,PULAr.fPsl 3JM %<K,Y-'y 

. ; mmiiiH jieApsu^’ 


S..C4Kin;v:f . 

' ■ ' I ' . . . j I . I . , 


1 I 

, . I ' 


'V.lT£Us':ir<i^fyjiUiA It! . ■!•'. 

‘ . I,; i ..2., 


. C' s 
»-i-a 


j j » i f 


/'/•. 

I I i . . , . . i. 


yv.m V/iluiAmuM 


MtA/l xxx.Xxx 
I i 

...... 7('rivl <pF PpL[^(\rMy • • = • 


yx,x. XXX 


.^iB. . AAhf. . }(lBi>icri<pi m-it., Y^/yy/tt . . 

I, ;|- '.--i . 

xxx.,y.xx j/X, w-\ sxx 35. *y.xx,xx< xxx.xxx 

Fb. 


. i(dk'S- 


i/‘j. 

\3o, 

-I 


.. . . •. i..; 

:':J - ' ! :: 

.-.;572)^. 2eVxATJP.lL. 



.5/. , 


jowi.y'.xx . P£F.> 


V/euB. xxy.xxx 


.*'|xz). 'fF 'ppr'UUlTTp.-Jxuu ■ x>xy/X 


'MAaina ' xlxx.jsjxx.i i ’ Aw-ssi {flF bbaisiu&s ' xXjX.\: 


, , .■ . I . ■ , .'I 1 ....... I .!..;. ; 

V^.V.V* Fai v/ilid ■jfi-Mo/]/a 'Yai-lo SiahfiJ.cs'p^fo.-As ,1 


.1.1. 


rrf! 1 ; UT 

\ % 7 


> ; i i t - . M 


' i lU.; 

uLliiill. 

H n 1 1 n 

11: ■).•) 3 fa.» a, I 0 


1 i i i i'j i ! ! ! 


! ' 1 ; : 1 n I 

t* v’ ^ a*'*' 
» ? 3 4 :• c 7 6-yit. 


'•r -t v 


i 4 ^ + j 4-1 

• * I ( j ; I 

..L.i 

i I ; \ ..J, \ . 


i J 

ui .i-j-i.l 


I 

. .. ........... 

: ■ ; FBAfFuRe: v-a 


I 


t*T H •» It .1 n n'.‘ i 


: ■ j i 1 1 I r ' 

37:1 '>!Va t • 1 *’ 

I7'i‘4,Vr, r b 'J •.; 


'■*■]■ 




■ fnid b<«'6 «l |lotl*(l tin* 


. I . il .■» .1 ■ 


b„. 
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5. 0 ERROR PROCESSING 
5. 1 INPUT ERRORS 

All input errors iii this program will be fatal. 

1. Label and sequence checking on control cards. Message 

❖❖❖ IMPROPER LABEL AND SEQUENCE NUMBER ON 

■POUT CONTROL CARD NO. . LABEL AND SEQ. NO. = 


2. Range testing on RPTYPE value. Message 

*** RPTYPE VALUE OUT OF RANGE. RPTYPE = 


3. Range testing on Histogram interval values. Messages 

*** START VALUE GREATER THAN BREAKl VALUE. 
START = BREAKl = 


BREAKl VALUE GREATER THAN BREAK2 VALUE. 
BREAKl = BREAK2 = 


BREAK2 VALUE GREATER THAN STOP VALUE. 
BREAK2 = STOP = 


the SEGMENT BETWEEN START AND BREAKl WILL 
NOT DIVIDE INTO EQUAL INTVLl INTERVALS. 
BRMKI - START = ■ . INTVLl = 


THE SEGMENT BETWEEN BREAKl AND BREAK2 WILL 
NOT DIVIDE INTO EQUAL INTVL2 INTERVALS. 
BREAK2 - BREAKl = . INTVL2 = . 


5!==!=* THE SEGMENT BETWEEN BREAK2 AND STOP WILL 
NOT DIVIDE INTO EQUAL 1NTVL3 INTERVALS. 
STOP - BREAK2 = . INTVL3 = . 


REQUESTED NO. OF HISTOGRAM INTERVALS EXCEEDS 
MAXIMUM OF 51. 

REQUESTED NO. OF INTERVALS THAT WOULD-BE 
GENERATED = 


4. Range testing on PARMTR values. Message 

PARMTR(i) VALUE OUT OF RANGE. PARMTR(i) = 






1 . 
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Name BWCMBN 

Size " 

Paee ^ of 


Function Holds the bio -window comTainations 


data for printing 


Name 

Dii 'en- 
sion 

For- 

mat 

1 Description 

Sym- 

bol 

Units 


NSEGS 


BIOCMB 16 


Number of segments used in the bio- 
i window combinations 


Bio -window combinations 


percent 

















COMI-ION STORAGE ALLOCATION 
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Naine CARDIN 


Size 


Functio n Holds the second and third inpat data 
* : cards except for histogram range input 


Name 

Dimen- 

sion 

For- 

mat 

Description 

Sym- 

bol 

Units 



Report type selection flag 


- Substrata Reference Data 
; - Population Histogram 


03 - Monte Carlo Histogram 

04 - Freq, of Sample Seg. Acquisition 


External print units flag 
0 - English, 1 - Metric 


Parameter type option flags for 
RPTYPE = 02 or 03 


Case number identification associated 
with the required input file 


Parameter report level indicators 
1 = zone, 2 = region, 3 = country 


Which PARMTR (index) being processed 


Error flag for multiple report types (no 
match on case number, etc. ) 














































- 

C0I-2roN STORAGE ALLOCATION 
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Name CONVRT i 

Size 6 

Pace 1 of 1 


Contains the print units 
Function conversion factors 


Name 

D±r 'en- 
sion 

For- 

mat 

1 

Description 

Sym- 

bol 

Unit: 

C TAMER 

3 ■ 

R 

Conversion factors to convert internal 
metric units to e-x:terna1 Encrlisti units, 




CTAMER(l) = Wheat area = . 0002471044 
CTAMER(2) = Production = 3.6743544 


CTMTRC 1 3 


R Conversion factors to convert internal 


CTMTRC(l) = Wheat area = . 001 
CTMTRC(2) = Production = , 1 


CTMTRC 3) = Y 
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R Country ID 


I Region ID 


I Zone ID 


I Strata ID 


I Substrata ID 


Segment ID 






2nd dimension = 4 crop windows 

1st dimension = up to 25 zulu dates /window 


in ascending order 


Total number of accesses 
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COMI^ON STORAGE ALLOCATION 


Nam e FBLKBX Siz e (28x18) Pag e 1 of_l 

Holds 1 header /detail record from CAS 
Functio n cum, output file - input file ( CASF ) 


Name 

, 

Dimen- 

sion 

For- 

mat 

Description 

• 

Sym- 

bol 

|Q|H| 

1 

FBLKRX 

1 

28x18 

R 

Header record, or detail record sectioned 
into 18 groups 














COMON STORAGE ALLOCATION 


Size 19 


Holds 1 detail record from CAMS 
Functio n Output File - Input file ( CAMSF) 
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Page :. l o f 1 
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FCAMSF 

EWINDO = IWIN 

ZULU(I) = IWIN(1,I) 

EPW(I) E EWINDO(2,I) 

I = 1 to 4 



i 


C0I-340N STORAGE ALLOCATION 


Size Z8 


Holds 1 header / detail group of a record 
Fvuiction from common block FBLKBX 
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Page I of_^ 



Dimen- For- 


Description 


Sym- 

bol 



NAMES 


ICASES 


COUN5 



A6 Filename 'CASCUM' 


Case number 


Country ID / 


Current Monte Carlo iteration 
number 


Number of regions 


Total number of zones 


Total number of strata 


Number of bio-windows 


Number of prediction dates 


Bio- window numbers 


Prediction dates in zulu 











































! 


COmON STORAGE ALLOCATION 

Nam e FTASCM Siz e 28 

Holds 1 header /detail group (data set 14) 
Fxmctio n from CAS cum. Output File - input file (CASF) 
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Pag e 2 cf .2 


Name 

Dimen- 

sion 

For- 

mat 

Description 

Sym- 

bol 

Units 



REGN5 


ZONES 


STRTA5 


filler 


HWA5 


TWA 5 


EWA5 


AERR5 


AVARS 


TPRODS 


Region ID 


Zone ID 


Strata ID 



Historical wheat area (WA) 


True WA 


Estimated WA 


Error in WA 


Variance in WA 


True production 


Estirnated production 


Production error 


(Remainder of record is not used) 
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Nam e ^ F GASPS Siz e 303 

Holds 1 header /detail record from CAS Dist. 
Function Output File - input file (CAS PIS) 


of 3 


Name 

Di: en- 
sion 

For- 

mat 

1 

Description 

Sym- 

bol 

U:iit 


A6 

File name 'CASDIS' 

I 

Case number 

A6 

Country ID 

I 

Current Monte Carlo iteration 
number 

1 

Number of regions 

1 

Total number of zones 




NAME6 


pASE6 


COUN6 


NT6 


NREGS6 


NZ T0T6 


filler 







filler 



Number of bio- windows 


Number of prediction dates 


Bio-window numbers 


Prediction dates inzulu 


(276 words of filler) 









































C0^2^0N STOR/^GS ALLOCATION 


Name F CAS PS 


Size 303 


Holds 2 hcader/ detail record (country records) 
Function from CAS Dist. Output File - input file (CASDIS) 
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Dimen- 





Description 
ecord 



YEREFC 



CLEPR6 100 R 


100 R 



Reference value for area error 


Reference value for production error 


Reference value for yield error 


Word N+3 specifies the area error for the 
nth Monte Carlo iteration 


Word N + 103 specifies the production 
error for the nth Monte Carlo iteration 


Word N + 203 specifies the yield error for 
the nth Monte Carlo iterations 


2nd Country Record 


Area confidence level Est/Est 


Production confidence level Est/Est 


Area confidence level True/Est 













































eLA‘inv'6 100 R 



Ref. value of prod, coiifidence level 
True/Est 


Ref. value of area confidence level True/ 
WC 


Ref. value of prod, confidence level True/ 


Prod, confidence level True/Est 


Area confidence level True/WC 


Prod, confidence level True/WC 


Region or Zone Record 


Ref. value for area error 


Ref. value for prod, error 


Ref. value for yield error 


Area error, N-Monte Carlo 
iterations 


Prod, error, N-Monte Carlo iterations 


Yield error, N-Monte Carlo iterations 



































































] 


t 


C0I-2®N STORAGE ALLOCATION 
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Nam e FHEADR 


Size 


Holds the first 4 words of each 
Fun ctio n sequential file 2. 

Header Record 


Page 1^ 


of 1 


Name 


Diren- 

sion 


For- 

mat 


Description 


Sym- 

bol 


Unit: 


NAME 


(I) 

1A4 


8 characters; 
File name 4 char /word 


ICASEF 


File case number 


IMXSEG 


Maximum number of segments in any 
substrata (SUBHST) 














Name FILBUF 


COMMON STOR/^GE ALLOCATION 


Size 134 


Holds file data returned by file access 
Function routines to the callino: routine 
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of 1 



Dimen- For- 


Description 


Sym- 

bol 


FILENM 2 


ICNTRY 


IZONE 


ISTR TA 






































KBUF 


Q 

O 


Pi 

Pi 

Pi 

Pi 

Pi 

W 

Pi 

w 

w 

to 

W 

< 


% 

P 

w 

< 

< 

P 

Pi 




< 


Pi 

Pi 

w 

Q 

Pi 


H 

c/:! 

3 

U 


u 


w 


1 

2 

3 

4‘ 

j 

5i 

6 

7 

8 
9 


1 

iq 

2 

11 

3 

12 

4 

13 

5 

14 

6 

15 

7 

16 

8 

17 

9 

18 

10 

19 

11 

20 

12 

21 

13 

■" 

22 

14 

23 

15 

24 ' 

16 

25 

17 

26 

18 

27 

19 

28 

20 

29 

21 

30 

i 

22 

31 

23 

32 

24 

33 

25 

34 

26 

35 

27 

‘36 


FILENM(l) 

|fILENM(2) 

jlCNTRY 

IREGN 

izONE 

llSTRTA 

IlSBSTA 

jlCASE 

jMXSEG 

INSEG 

I 

IlGPNO 
XHPW 
AREA 
XTPW 
N 
NA 
XBTPW ■ 
|XCV2 
XTPWI 
PRDATE 


Y 

XEPW 


XEYLD 




XTYLD, 


|FILENM(2) 
^ 


ttSBSTA 


NT 

NSTRAT 

(filler) 

NBW 

NPD 

IBIOWD 


NT 

NREGS 

NZTOT 


KWIN 


IPRDAT 




Y 

APVAL(l) 

APVAL(2) 


Y 

MGREF 
^CERR(lOOj) 
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FILBUF 

EQUIVALENCES 





FSBHST 


C0I-2-I0N STORAGE ALLOCATION 
Size 168 
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Page 1 of 1 


Function Holds one detail record from Substrata 


input iiie ^ 


Name 

Dimen- 

sion 

For- 

ms. 

Description 

Sym- 

bol 

Unit s 


cou;ni 


REGNl 


' ■ ! 

ZONEl 


STRTAl 


SBSTAl 


INEG 


NGRP 


HPW 


AREA! 


TPWl 


NAGR 


NAl 


BTPW 


RTMP 






GV2 


GV3 


GV4 






A 4 Gountry ID 


Region ID 


Zone ID 


Strata ID 


Substrata ID 


List of sample segments 


Group no. 


R Hist, proportion of wheat 


R Land area 

■ 


R True proportion of wheat for substrata 


I No. of agricultural segments in substrata 


No. of allocated segments in substrata 


R Bias of true proportion of wheat 


R Ratio of true mixed pixels 



Coef. of variation for within county 
variation of PW 






kilo- 

meters^ 


































































1 

> 






1 ‘ 

1 






i } f 
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C0I-3-I0N STORAGE ALLOCATION 

Nam e FSGTRU Siz e 16 Pag e 1 of ^ 

Functio n Holds one detail record from Segme nt 
Truth File, input file (SEGTRU) 
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Name FYESOT 


COIMON STORAGE ALLOCATION 
Size 23 


Paee ^ of ^ 


Function Holds one detail record from YES Output 


- input file 


Name 


Dimen- For- 


Description 


Sym- 

bol 


COUN4 


REGN4 


ZONE 4 


. .1 

STRTA4 


YST?R i 


IZPRDD 


YSCI 


YSYCI 



A 4 Country ID 


I Region ID 


I Zone ID 


I Stratum ID 


R True yield for stratum 


Zulu prediction date 


R Est. yield for prediction date 


R Std. deviation of vie Id error 



YSPNT = lYSPNT 
IZPRDD(I) =IYSPNT(1,I) 

I = 1 to 4 

YSCI(I) =^YSPNT(2,I) 






















































V 


T 
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COI-MOK STpR/LGE ALLOCATION 

Nam e HSTOGM Siz e 

Function Holds the Histogram data values for printing 


— (J) — 

Dimen- 

sion 

For- 

mat 

Description 

Sym- 

bol 

Unit 




XMVAL 


STDDEV 


XMPSUM 


SDPSUM 


NRANGE 


IRANGE 51 


NTOTL 


RANGES 52 


MINVAL 



R Mean value of the error 


Standard deviation of the error 


Mean of population sum for 
RETYPE = 02 only 


Std. deviation of population sum for 
RETYPE = 02 only 


I Number of range intervals 


I Number of readings per each range intervajl 


Total number of readings 


R Range interval points 


Minimum reading value 


Maximum reading value 


Prediction date if RETYPE = 02 or 03 and 
if 02 PARMTR(n), n = 2, 3, 4 & 5 















percent 


percent 


percent 
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COI-D-ION STORAGE ALLOCATION 




) 


Name ^ TID 


COI-S-ION STORAGE ALLOCATION 


Size 


Function identification information for report printing 
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Pag e 1 of ^ 


1 

Name 

■ 1 

Dimen- 

sion 

For- 

mat 

Description 

Sym- 

bol 


CNTRY 


REGION 


ZONE 



Country ID 


Region ID 


Zone ID 


Strata ID 


Case number 


For RETYPE = 02 or 03 file name 


Type of information to be printed 
l=strata, 2=zone, 3=region, 4=country 


File name format flag (REPRT2) 
0 = 2A4 format, 1 = A6 format 



























1 


Nam e PRTCTL 

Function Print control flags 


C0I-3-I0N STORAGE ALLOCATION 
Size 4- 


28234-6028-RU-00 
Page 258 





















C0^2•I0K STORAGE ALLOCATION 


Nam e RAN GE Siz e ■ 7 • 

Fvinction Holds the histogram range input values 
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Dimen- For- 


Description 


Sym- 

bol 


R 

1 

Histogram start value 

R 

Histogram 1st interval value 

R 

Histogram breakpoint to change interval 

R 

Histogram 2nd interval value 

R 

Histogram breakpoint to change next inter\ 

R 

Histogram 3rd interval value 

R 

Histogram terminal value 


START 


INTVLl 


BREAKl 


INTVL2 


BREAK2 


INTVL3 


STOP 



percent 


percent 


percent 


percent 


percent 


percent 































C0I-3^0N STOR/LGE ALLOCATION 
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Name REA PNG 


Size 5600 


Page 1_ 


of 1 


Fvmctio n Intermediate storage area for the "e rror readings" 

of the Population and Monte Carlo Reports. Intermediate 
Buffer for Confidence Levels, 



Dir en- 
sion 

For- 

mat 

Description 

5000 

R 

. 

"Error readings" at substrata, strata, 
zone, reeion or country level 

100 

R 

Area confidence level 
Est/Est 

100 

R 

Production confidence level 
Est/Est 

100 

R 

Area confidence level 
True /Est 

100 

R 

Production confidence level 
True /Est 

100 

R 

Area confidence level 
True/WC 

100 

R 

Production confidence level 
True/WC 
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COMON STORAGE ALLOCATION 

Nam e SUBVAL Siz e ^ ^ * 

Fvinction Holds the Substrata Historical Data values for printing 
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Pag e ^ of ^ 


Name 


Dimen- 

sion 



Description 


Sym- „ 
bol 



HWA 


TWA 


NSUBGP 



R 

Historical wheat area 

R 

True wheat area 

I 

Number in each substrata group type 

I 

Number of segments in groups 1 and 2 

R 

1 

Input bias 

R 

Simulation bias 

R 

Input coefficient of variation 

R 

Simulation coefficient of variation 


WA Hectare 


WA Hectare 
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PART ni 

LIST OF SUBROUTINES AND SUBROUTINE 
CALL STRUCTURE 


Name 


•Function 
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POUT 
SU BREF 

POPDRV 

SAMERR 

CAMSER 

FREQAC 

YLDERR 

REPRTl 

REPRT2 

REPRT3 

PAGHDR 

GENRNG 

FILSEG 

CLMOVE 

PUNITS 

MCHIST 

ANPERR 


Main control subroutine for POUT program. 

This subroutine processes the substrata reference data 
report - RPTYPE = 1. 

This subroutine controls the generation of the population 
reports - RPTYPE = 2. 

This subroutine produces the population segment sampling 
error report - RPTYPE = 2, PARMTR = 1. 

This subroutine produces the population CAMS error report - 
RPTYPE = 2, PARMTR = 2. 

This subroutine produces the frequency of sample segment 
acquisitions report - RPTYPE = 4. 

This subroutine produces the population yield error report - 
RPTYPE = 2, PARMTR = 3. 

This subroutine prints the substrata reference data report. 

This subroutine prints the histogram data reports. 

This subroutine prints the frequency of sample segments 
acquisitions. 

This routine controls count on printed output and provides 
a line of printed heading on top of each output page. 

This subroutine generates the histogram ranges from the 
interval input. 

This subroutine reads the required sequential files determined 
by the RPTYPE flag and returns the required data in common 
block FILBUF. 

This routine (used by MCHIST) moves the confidence levels, 
one at a time, from the reading buffer to FILBUF. 

This routine sets up the proper print and conversion units for 
the population and Monte Carlo reports. 

This subroutine produces the Monte Carlo reports - RPTYPE= 3i 

This subroutine produces the population area error report or 
the population production error report - RPTYPE = 2, 

PARMTR = 4, 5. 
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Name 

FILDA 


Function 

This subroutine controls the reading of the CASF file or 
CASDIS file. 

This routine is a generalized random access I/O routine 
(utilizing define file on the Univac), 


RANACF 
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POUT Subroutine Call Structure 

POUT 

PAGHDR 

SUBREF 

FILSEQ 

PAGHDR 

REPRTl 

PAGHDR 

POPDRV 

GENRNG 

SAMERR 

FILSEQ • 

REPRT2 

PUNITS 

PAGHDR . 

CAMSER 
’ FILSEQ 

LFPA! 

FZULjU 

REPRT2 

PAGHDR 

YLDERR 

FILSEQ: 

LFPA i 

' ■ I 

PAGHDR 

FZULU 

REPRT2 

ANPERR 

FILD^ 

PAGHDR 

RANACF 

LFPA 

REPRT2 
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MCHIST 

FILDA 

PAGHDR 

GENRNG 

LFPA 

CLMOVE 

FZULU 

REPRT2 

FREQACi 

FILSEQ 

REPRT3 


PAGHDR 
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PART IV 

SUBROUTINE DESCRIPTIONS AND FLOWCHARTS 
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Program Main Routine POUT 


Purpose: 

This is the driver for the Post Processor (POUT) program. The 
driver reads in the control card input and error check all values except 
the file case numbers (ICASIN(i)). All card input is checked before any 
error will cause processing to terminate. All card input is Echo printed 
and all errors are noted with an appropriate error message. The routine 
then calls the requested RPTYPE report subroutine. 

Input: 

/CARDIN/ IHEADR 
RPTYPE 
AUNITS 
PARMTR (5) 

ICASIN (5) 

LEVEL 

/RANGE/ START 
INTVLl 
BREAK 1 
■ INTVL2 

BREAK2 • 

INTVL3 

STOP 

/SELCTN/ Blow D (4) 

WPRTY (4) 

IPRD (3, 14) 

Output: 

/CARDIN/ 

/RANGE/ 

/SELCTN/ 

/PRTCTL/ NPAGE 
NLINES 
MAXLIN 
KOUT 

HEADER (16) 

/CONVRT/ CTAMER (3) 

CTMTRC (3) 
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Linkage: 

Main program. 
Subroutine Used: 

CALL SUBREF 

CALL POPDRV 

- CALL MCHIST 

CALL FREQAC 

CALL PAGHDR 

Local Variables: 

NOMRNG = 0 

= 1 . 

RNGNML = 

AMC VT .= 
XMCVT = 

IN = 5 
lOUT = 6 
LNMAX = 45 
LABEL = "POUT' 
NCARD = "01, 02, 
MRPTYP = 4 
XMXRGE = 5 1 
INERRS 


process and produce Substrata Reference Data 
Report if RETYPE = 01. 

process and produce Population Reports if 
RETYPE = 02. 

process and produce Monte Carlo Reports if 
RETYPE = 03. 

process and produce Frequency of Sample 
Segments Acquisitions Report. 

controls count on printed output and provides a 
line of printed heading on the top of each output 
page with page number. 


Histogra.m range values input 
Nominal ranges to be used 

Histogram nominal range values 

American conversion factors 

Metric conversion factors 

Standard read (input) unit 

Standard write (output)' unit 

Maximum no. of print lines per page 

' Card label identifier 

etc." Card label numbers 

Maximum RETYPE value 

Maximum no. of histogram ranges 

Logical flag indicating that an input error 
has occurred. At the completion of input 
this flag is tested for run termination due 
error(s). 
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Processing: 

1 . Zero out arrays and preset constants. 

2. Read Header Card 

Save header 

Check card label and sequence no. 

Print error naessage and set INERRS = true 

3. Read Data Card 1 

Check card label and sequence no. 

Check RPTYPE in range 

Check RANGE values for nominal usage 

Check input RANGE values for interval or size errors 

4. Read Data Card 2 

Check card label and sequence 

Check PARMTR values and if set on ICASIN values 

Check LEVEL value if RPTYPE = 02; use nominal of 1 if = 0 

5. Read Data Cards 4 and 5 

Check card labels and sequences 
Check only if RPTYPE = 02 or 03 

6. Echo print all input values with all nominals set where necessary. 

7. Terminate run if INERRS = true. 

8. Run case according to RPTYPE value. 

9. Stop. 
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Subroutine SU BREF 


Purpose: 

This routine produces the Substrata Reference Data Report. It 
accesses the Substrata Historical File (SUBHST) through the sequential 
file read routine FILSEQ, It computes the required quantities and passes 
them to routine REPRTl for printing. 

Input: 

/FILBUF/ ICNTRY 
IREGN 
IZONE 
ISTRTA 
ICASE 
NSEG 
IGPNO 
XHPW 
AREA 
XTPW 
N 
NA 

XBTPW 
XCV2 


Output: 

/PRNTID/ CNTRY 
REGION 
ZONE 
STRATA 
ICASE 
ITOTYP 

/SUBVAL/ HWA 
TWA 
NSUBGP (3) 
NSEGGP ,{2) 

XINBS 

XSIMBS 

XINCV 

XSIMCV 

; 'h . 

Linkage : 

CALL SUBREF called by POUT. 


Number of sample segments in this substrata. 
Group number of the sample segments. 
Historical proportion of wheat. 

Land area of the substrata. 

True proportion of wheat of substrata. 

No. of agricultural segments in substrata. 

No. of allocated segments in substrata. 

Bias of true proportion of wheat. 

Coefficient of varia;tion from v/ithin county 
variation PW. 
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Subroutines Used: 

CALL FILSEQ (IH) reads data file SUBHST sequentially. 

IH = 1 read header record. 

IH = 0 read detail record. 

Return of IH < 0 end of file on file being read. 
CALL REPRTl prints the Substrata Reference Data Report. 

Local Variable Description: 

AREAPS = 10289. 712, area per segment in Hectares. 

XNA Fit. pt. , no. of allocated segments. 

XR Ratio of the true substratum land area to the gross- 

pseudo substratum area. 

XN Fit. pt. , no. of agricultural segments in substrata. 

HWAK Historical wheat area, substrata level, 

HWAS Historical wheat area, strata level. 

HWAZ Historical wheat area, zone level. 

HWAR Historical wheat area, region level. 

HWAC Historical wheat area, country level. 

TWAK True wheat area, substrata level. 

TWAS True wheat area, strata level. 

TWAZ True wheat area, zone level, 

TWAR True wheat area, region level, 

TWAC True wheat area, country level. 

XNR XN * XR 10289.72, substrata level. 

J No. of substrata in a stratum, 

XINBSS Input bias, strata level. 

XINBSZ Input bias, zone level. 

XINBSR Input bias, region level. 

X1N3SC Input bias, country level. 

XSMBSZ Simulation bias, zone level. 

XSMBSR Simulation bias, region level. 

XSMBSC Simulation bias, country level. 

XINCVS Input coefficient of variation, strata level. 

XINCVZ Input coefficient of varia;ion, zone level. 

XINCVR Input coefficient of variation, region level, 

XINCVC Input coefficient of variation, country level, 

XSMCVS(2) Simulation coefficient of variation, strata level. 
XSMCVZ Simulation coefficient of variation, zone level. 

XSMGVR Simulation coefficient of variation, region level. 
XSMCVC Simulation coefficient of variation, country level. 

IH Flag to subroutine FILSEQ where IH = 1 read header 


record or IH = 0 read detail record. 
KSBSTA Substrata counter. 
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Processing: 

1. IH = 1, call FILSEQ to read header record. 

2. Verifibation done by" FILSEQ. 

3. SAVE ilCASE in common PRNTID. 

4. SET KSBSTA = 0 and J = 0 and zero out accumulative variables. 
Call FILSEQ to read detail record. 

KSBSTA = KSBSTA + 1 

IF (KSBSTA. EQ 1) SAVE COUNTRY ID 

REGION ID 
ZONE ID 
STRATA ID 
in PRNTID 

5. Test for a change in identification area 

STRATA 

ZONE 

REGION 

6. If same, perform calculations 

XNA = NA 
XN = N : 

XR = AREA /(XNA A REAPS) 

X'NiR = XN XR AREAPS 
HWAK = XNR XHPW/100 . 
m^AS = HWAS + HWAK 
T3^AK = XNR * XTPW/100 

TWAS - TWAS + TWAK • - 

NSUBGP (IGPNO) = NSUBGP (IGPNO) + 1 
IF (IGPNO. EQ. 1 or 2) 

NSEGGP (IGPNO) = NSEGGP (IGPNO) + NSEG 
XINBSS = XBTPW '!= HWAK + XINBSS 
XINCVS = (XCV2 TWAK) + XINCNS 
XSMCV = TWAK - HWAK 
XSMCVS(l) = XSMCVS(l) + XSMCV **2 
XSMCVS(2) = XSMCV(2) + XSMCV 
J = J +1 

Read another detail record and go to 5. 

7. Cljange in strata ID 

m^A‘ = HWAS 

TWA = TWAS 

XliNBS = XINBSS/HWA 

XSIMBS = (TWA - HWA)/HWA 

XINCV = (XINCVS) /TWA 7 1/? 

XSIMCV = (J/(J - 1) (XSMCVS(l) - 1/ J XSMGVS(2) )) ' 
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NSUBGP(i) = NSBGPS{i) _ 

NSEGGP(j) = NSGGPS(j) where i=l,2&3;j-l&2 

Call REPRTl with ITOTYP = 1 

HWAZ = HWAZ + HWA 

TWAZ - TWAZ + TWA 

XINBSZ = XINBSZ + XINBS 

XSMBSZ = XSiMBSZ + XSIMBS 

XINCVZ = XINCVZ + XLNCV 

XSMCV2: = XSMCVZ + XSIMCV 

NSBGPZ(i) = NSBGPZ(i) + NSUBGP(i) 

NSGGPZ(i) = NSGGPZ(j) + NSEGGP(j) 

HWAS = 0 
TWAS = 0 
XINBSS = 0 
XINCVS = 0 
XSMCVS(l) = 0 
XSMCVS(2) = 0 
J = 0 

NSBGPS(i) 

NSGGPS(j) ^ , - 

If no change in zone ID, read another detail record and go to b 


Chaiige in zone ID 

HWA = HWAZ 
TWA = TWAZ 
XINBS = XINBSZ 
XSIMBS. = XSMBSZ 
XINCV = XINCVZ 
XSIMCV = XSMCVZ 
NSUBGP(i) = NSBGPZ(i) 

NSEGGP(j) = NSEGGZ(j) 

Call REPRTl with ITOTYP = 2 
HWAR = HWAR + HWA 
TWAR = TWAR + TWA 
XINBSR = XINBSR + XINBS 
XSMBSR = XSMBSR + XSIMBS 
XINCVR = XINCVR + XINCV 
XSMCVR = XSMCVR + XSIMCV 
NSBGPR(i) = NSBGPR(i) + NSUBGP(i) 

NSGGPR(j) = NSGGPR(j) + NSEGGP(j) 

HWAZ = 0 
TWAZ = 0 
XINBSZ = 0 
XSMBSZ = 0 
XINCVZ - 0 
XSMCVZ = 0 
NSBGPZ(i) = 0 

NSEGGZ(j) = 0 j j . c 

If no change in region ID, read another detail record and go to b 
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Change in region ID . 

Move region values to common variables as in 8 above. 

CALL REPRTl with ITOTYP = 3. 

Sum region values into country values. 

Zero out region values. 

If more data to be read, read another detail record and go to 5. 
All records have been processed. 

Move country values to common variables as in 8 above. 

CALL REPRTl with ITOTYP = 4 


Return to POUT, 


1 — r 

i ^ 
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Subroutine POPDRV 

Purpose : 

This routine is the driver routine for the generation of the Population 
Reports (RPTYPE = 02). 

Input : 

/CARDIN/ RPTYPE 

PARMTR(5) 

lERR 

Output: 

/CARDIN/ JPARM 

lERR Reset to zero each subroutine call 

Linkage: 

call POPDRV 
Subroutines Used: 

CALL SAMERR 

CALL CAMSER 

CALL YLDERR 

CALL ANPERR 
CALL GENRNG 
Local Variable: 

JERR 
Processing: 

1. CALL GENRNG ■ generates the range intervals for the 

histogram data. 

2. IF (PARMTR(l) 0 set JPARM = 1 

CALL SAMERR 


called by POUT 


Generates the Population Sampling Error Report 
(PARMTR(l) i 0) 

Generates the Population CAMS Error Report 
(PARMTR(2) i 0) 

Generates the Population Yield Error Report 
(PARMTR(3) i 0) 


Generates ranges for histogram 


3. IF PARMTR(2) 4 0 

4. IF PARMTR(3) 4 0 

5. IF PARMTR(4) 4 0 

6. IF PARMTR(5) 4 0 
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set JPARM = 2 
CALL. CAMSER 

set JPARM = 3 
CALL YLDERR 

set JPARM = 4 
CALL ANPERR 

set JPARM = 5 
CALL ANPERR 


7. Return 





Purpose: 

This routine produces the Population Sampling Error Report. It 
accesses the SUBHST and Segment Truth (SEGTRU) Files through the 
sequential file read routine FILSEQ. It computes the required quantities 
and passes them to routine REPRT2 for printing. 

Input: 

/CARDIN/ LEVEL 

/HSTOGM/ NRANGE 

RANGE (52) 

NZRNG 

/FILBUF/ FILENM (2) 

ICNTRY 

IREGN 

IZONE 

ISTRTA 

ISBSTA 

ICASE 

NSEG Number of sample segments in substrata 
AREA Land area of substrata 

XTPW True proportion of wheat, Kth substratum 
N No. of agricultural segments in substrata 

NA No. of allocated segments in substrata 

XTPWI True proportion of wheat ith segment 

Output: 

/PRNTID/ CNTRY 
REGION 
■ ZONE 
STRATA 
ICASEN 
FILNAM (2) 

ITOTYP . 

NAMFMT 



/READNG/ READNG (3200) 
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/HSTOGM/ XMVAL 
STDDEV 
XMPSUM 
SDPSUM 
NRANGE 
IRANGE (51) 

NTOTL 
RANGES (52) 

MINVAL 

MAXVAL 

REF 

NZRNG 

Linkage: 

CALL SAMERR called by POPDRV 


Subroutines Used: 

CALL FILSEQ (IH) reads data files SUBHST and SEGTRU. 

IH - header /detail record flag 
= 1 read header records 
= 0 read detail records 


CALL REPRT2 prints the Population Sampling Error Report. 


Local Variable Description: 

IH Flag passed to routine FILSEQ whether IH = 1, read 

header records; IH = 0, read detail records. 


A REA PS 

XNA 

XR 

XN 

XM 

J 

DELSB 

DELERR 

DELSQ 

KXM 


Substrata counter at zone, region or country level 
Sum of proportion of wheat at substrata level 

Square of DELERR 

No. of segments in substrata 


Processing: 


1. Initialize arrays, constants, and work areas. 

2. Get header record. 

Check if lERR = 0 - no match on case ID. 
Save case number and file name. 


Get detail records. 

Check for EOF - go to 8. 
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4. First time through initialize ARE^ ID. 

5. If not first time through check for changa in substrata ID 
and go sum segments (8. ). 

6. Accumulate true proportion wheat values. 

7. Read another detail record. 

8. Compute the sum for the substrata. 

9. Save the reading in READNG. 

10. ^ Find minimum and maximum reading. 

11. Add reading to sums. 

12. Test level complete - otherwise go to 3. 

13. If all readings processed for level compute the mean, standard 
deviation, etc. Tally the percentage of reading against histo- 
gram ranges. 

14. Call REPRT2. 


15. Return. 
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Subroutine CAMSER 


Purpose; 

This routine produces the Population CAMS Error Report. It 

accesses the SUBHST and CAMS Output (CAMSF) Files through the 
sequential file read' routine FIESEQ. It computes the required quantities 
and passes them to routine REPRT2 for printing. 


Input: 


/CARDIN/ 

LEVEL 

/HSTOGM/ 

NRANGE 

RANGES 

NZRNG 

/FILED F/ 

FILENM (2) 

ICNTRY 

IREGN 

IZONE 

ISTRTA 

ISBSTA 

ICASE 

NSEG 


AREA 

XTPW 

N 

NA 

XTPW I 
PRDATE (4) 
XEPW (4) 

. /SELCTN/ 

BIOWD (4) 
WPRTY (4) 
IPRD (3, 14) 

/PRTCTL/ 

KOUT 


No. of sample seg. in substrata 
Land area of substrata 

True proportion of wheat, Kth substratum 

No. of agricultural seg. in substrata 

No. of allocated seg. in substrata 

True proportion of wheat, 1th segment 

Prediction dates of the four bio -windows 

Est. proportion of wheat of the four bio-window 


Output: 

/PRNTID/ CNTRY 
REGION 
ZONE 
STRATA 
ICASEN 
FILNAM (2) 
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/HSTOGM/ XMVAL. 

STDDEV 
XMPSUM 
SDPSUM 
NRANGE 
IRANGE (51) 

NTOTL 
ranges (52) 

MINVAL . 

MAXVAL 
PRDATE (3) 

NZRNG 
REF 

/READNG/ 

Linkage; 

CALL CAMSER called by POPDRV 
Subroutines Used: 

CALL FILSEQ (IH) reads data files SUBHST and CAMSF. 

IH = 1 read header records 
= 0 read detail records 

CALLFZULU (IDATE.IOUT) converts Zulu date to calendar date. 

IDATE = Zulu date, integer 
lOU T(l) = year, integer 
■ IOUT(2) = month, integer 
IOUT(3) = day, integer 

CALLLFPA (FLDA, LMO, LYR, ALFGM, DAYS) converts calenda 

date to Zulu. 

FLDA = day, fit. pt. 

LMO = month, integer 
LYR = year, integer 
ALFGM = dummy 
days = Zulu date, fit. pt. 

CALL REPRT2 prints the Population CAMS Error Report. 

CALL PAGHDR 

Local Variable-Description; 

. i 

IH 

AREAPS 
XNA 
XR 
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XN 

XNR 

XM 

J 

DELSB 

DELERR 

DELSQ 


Processing: 

1. Initialize arrays, constants and work areas. 

2. Get bio-window number or prediction date. 


3. 

4. 

5. 

6 . 


7. 


8 . 



10 . 

11 . 

12 . 


13. 

14. 

15. 

16. 

17. 

18. 
19. 


Get header record. 

Verify if case number match file. 

Get detail records. 

Check for EOF, go to 12. 

Set ID area if first time through. 

If not first time through check for change in substrata ID; 
if so, go to 12. 

Accumulate est. proportion wheat for bio-window. 

Get another detail record for bio -window. 

Get matching prediction date values if prediction date convert 
to Zulu. Check against file dates - if no match, skip to next 
prediction point, go to 2. 

Accumulate information for prediction date. 

Read another detail for prediction date. 

Compute sum of substrata. 

Save the reading. 

Find minimum and maximum. reading. 

Add reading to sums. 

Test level complete - otherwise go to 4. 

If complete, process all values for level. Compute mean, standard 
deviation, etc. Tally readings against histogram ranges. 

Call REPRT2. 

Go get another prediction point. 


20 . 


If done, return. 
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Subroutine FREQAC 


Purpose: 

This routine produces the Frequency of Sample Segment A cquisition 
Report by scanning the Data Acquisition File (ACQUIS) and tallying the 
combination of accesses for each segment. 

Input: 


/FILBUF/ FILENM (2) 
ICNTRY 
IREGN 
IZONE 
ISTRTA 
ICASE 
KWIN (4) 

Output: 

/PRNTID/ CNTRY 
REGION 
ZONE 
-STRATA 
ICASEN 
FILNAM (2) 
ITOTYP 

/BWCMBN/ NSEGS 

BIOCMB (16) 


Linkage: 

CALL FREQAC called by POUT 


Subroutines Used: 

CALL FILSEQ 
REPRT3 


Local Variable Description: 


KNTBIO'(l6, 3) 


KNT (3) 

KBIOZ (16) 
KBIOR (16) 
KBIOC (16) 


(I, J) I - bio-window count 

J - zone, region, country level 
counts of segment acquisitions 
Total no. of segments (readings) at each level 
(zone, etc. ) 

= KNTBIO(I, I) 

= KNTBIO(I,2) 

H KNTBIO(l, 3) 
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IFIRST First time flag = - 0 - first time 

4 - not first time 
IH 

KNTZ =■ KNT(l) - 

KNTR = KNT(2) 

KNTC = KNT(3) 

Processing: 


1; Initialize storage arrays. 

2. Get header record and save ID information. 

3. Get detail record. 

If EOF, go to 8. 

4. If first time through save ID (area) informa.tion. 

5. If not first time through, check for change in ID area and 
go to 8. 

6. Te?>t bio-windows for accesses and tally the combinations. 

7. Go to 3 to get another detail record. 

c ' 

8. Compute percentage of combinations at zone level and print 
that zone. 

9. Add zone values to region. If change in zero, compute per- 
centage and print. 

10. Add region to country values. If EOF, compute percentages 
and print. 


11. When completed, return. 
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Subroutine YLDERR 


Purpose: 

This routine produces the Population Yield Error Report. It 
accesses the SUBHST and YES Output (YESOUT) Files through the 
sequential file read routine FIESEQ.. It computes the required quantities 
and passes them to routine REPRT2 for printing. 

Input: 

/CARDIN/ LEVEL 

/HSTOGM/ NRANGE 
RANGES 
NZRNG 

/FILBUF/ FILENM (2) 

ICNTRY 

IREGN 

IZONE 

ICASE 

AREA 

XTPW 

N 

NA 

PRDATE (6) 

XEYLD (6) 

XTYLD 

/SELCTN/ BIOWD (4) 

IPRD (3, 14) 

' /PRTCTL/ KOUT 
Output: 

/PRNTID/ CNTRY 
REGION 
zor^E 
ICASEN 
FILNAM (2) 

NAMFMT 


T 

f 

! 
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/HSTOGM/ XMVAL 

STDDEV . ' 

XMPSUM 
SDPSUM _ 

NTOTL 
MINVAL 
MAXVAL 
PRDATE (3) 

REF 

/READNG/ READNG (500) 

Linkage: 

CALL YLDERR called by POPDRV 
Subroutines Used: 

CALL FILSEQ reads data files SUBHST and YESOUT 
CALL FZULU (IDATE, lOUT) 

CALL LFPA (FLDA, LMO, LYR, ALFGM, DAYS) 

CALL REPRT2 prints yield error 
CALL PAGHDR 
Local Variable Description: 

IH 

A REA PS 

xna i 

XN 

XNR 

J. 

KXS 

DELSTA 
REFSTA 
DELERR 
V DELSQ 

Processing: 

1* Initialize arrays, constants, etc. 


2. Get bio-window number or prediction date, 

3. Get header record. 

Verify match on case number. 



) 





I 
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4. Get detail records. 

Check EOF, go to 10. 

5. Set ID area if first time through. 

6. If not first time through check for change in level ID. 


7, Determine prediction point processing. 

8. Accumulate information. 


9. Read another detail record. 


10 . 

11 . 

12 . 

13. 

14. 


Compute sum of strata. 

Save reading. 

Find minimum and maximum readings. 
Add reading to sums. 

Test level complete, otherwise go to 4, 


15. If complete, process all values for level. Compute mean, 
standard deviation, etc. Tally readings against ranges. 

16. Call REPRT2. 

17. Get another prediction point. 

18. Otherewise, return. 
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Subroutine REPRTl 


Purpose: 

Control and print the Substrata Reference Data Report. 

Input : 

/CARDIN/ AUNITS 

/PRTCTL/ NPAGE 
NEINES 
MAXLIN 
KOUT 
HEADER 

/PRNTID/ CNTRY 
REGION 
ZONE 
STRATA 
ICASEN 

/SUBVAL/ HWA • 

TWA 

NSUBGP (3) 

NSEGGP (2) 

XINBS 

XSIMBS 

XINCV 

XSIMCV 

ITOTYP 

/CONVRT/ CTAMER (3) 

CTMTRC (3) 



Output: 

The printed report. 

Linkage: 

CALL REPRTl called from SUBREF 
Subroutines Used: 

None. 

Local Variable Description: 
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Subroutine REPRT2 


Purpose: 

Subroutine REPRT2 produces the printed reports for the Population 
and Monte Carlo Reports. 

The first time through for any run, the histogram ranges are printed 
for all parameters. If the confidence levels are requested as part of a 
larger case, they have their own ranges. The ranges are printed only 
once just before the confidence level reports. 

For each report, the histogram values are computed from the 
number of values in each range. The percentages are summed at each 
range point. These percentages are then printed as the histogram data 
followed by its mean, standard deviation, reference value, minimum and 
maximum readings, and number of readings. For each population report 
the mean and-standard deviation of the population sum are also printed. 

Finally, the identification line containing country, region, zone and 
prediction point is printed. 
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Subroutine REPRT3 


Purpose: 

Subroutine REPRT3 produces the printed report of the Frequency 
of Sample Segments Acquisitions. 

Input: 

/PRNTID/ CNTRY 
REGION 
ZONE 
ICASEN 
FILNAM (2) 

ITOTYP 

/BWCMBN/ NSEGS 

BIOCMB (16) 

/P.RTCTL/ NPAGE 
Output: 

The printed report. 

Linkage: 

CALL REPRT3 
Subroutines Used: 

CALL PAGHDR (N) controls the line count on the printed output. 
Local Variable Descriptors: 

MPAGE checked against NPAGE to determine if the page number 

has been incremented and if so, prints the report 
headings. 

JFIRST first time flag. 

Processing: 

1. Print page headings if JFIRST =0. 

2. Go to 3. if ITOTYP =1 

5. if ITOTYP = 2 
7. if ITOTYP = 3 


r 


1 


I 



i 




j 

1 

1 


I 


28234-6028-RU-00 
Page 293 


3, Print report headings if NPAGE / MPAGE. 

4, Print the zone level values for the 16 combinations. Go to 9, 

5, Print report headings if NPAGE 4 MPAGE. 

6, Print the region level values for the 16 combinations. Go to 9. 

7, Print report headings if NPAGE 4 MPAGE. 

8, Print the country level values for the 16 combinations. 

9, Return. 




28234-6028-RU-00 
Page 294 


Subroutine PAGHDR (N) 


Purpose: 

Subroutine PAGHDR controls the line count on printed output and 
provides a line of printed heading at the top of each- output page including 
the page number. 

Input : 

/PRTCTL/ NPAGE 
NLINES 
MAXLIN 
KOtJ T 

HEADER (16) 

Linkage: 

CALL PAGHDR (N) 

where N = count of lines to be printed 

-N = skip to a new page before printing N lines 

Local Variable Descriptions: 

LPRINT = a flag which indicates to the routine what the previous 
command was 

= 1 increment the line count 

= 0 skip to the bottom of page 

= -1 the first time the routine called, always skip to new 
page 

NLINES = the current starting line number of a page 
Processing: 

1. Test LPRINT value for previous command. 

2. LPRINT less than zero; set constants N1 and N2 and reset 
LPRINT =1, ' Go to 11. 

3. LPRINT equals zero; set LPRINT = 1. Go to 11. 

4. Test N for less than or equal zero. If yes, go to 11. 

5. LPRINT greater than zero. Compute J = NLINES+N. 

6. Test J if greater than N1 constant and if so, go to 8. 


J 
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7. Otherwise set NLiINES = Jr go to 13, 

8. If N not equal zero, go to 13. 

9. Move line printer to bottom of page by printing an appropriate 
number of blank lines. 

10. Set LPRINT = 0. Go to ‘ 

11.. Increment page number and print header at the top of the new 
page. 

12. Reset NLJNES value. 

13. Return to calling routine. 
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Subroutine GENRNG (ICL) 


Purpose: 

Subroutine GENRNG generates the histogra.m ranges from the input 

interval or nominal interval values except for the confidence levels of 

RPTYPE = 03 which have a special set of intervals. 

Input: 

/RANGE/ START 
INTVLl 
BREAKl 
INTVL2 
BREAK2 
INTVL3 
STOP 

Output: 

/HSTOGM/ NRANGE 

RANGES (52) 

NZR.NG 

Linkage: 

CALL GENRNG (ICL) where 

ICL = 0 generate standard ranges for histogram data 

ICL 4 0 generate special ranges for the confidence levels; 
that is, no RNGMIN or RNGMAX entries. 

Local Variable Descriptions: 

K is count of the number of range values during generation. 

N1 is the number of intervals between any two breakpoint values. 

VALU is the actual range value, computed from the initial breakpoint 

value plus the interval increment. 

RNGMIN,- RNGMAX very large minimum and maximum extreme 

points 
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Processing: 

1. Zero all range v’^alues. 

2. Set NRANGE and NZRNG to zero. 

3. Set K = 1. 

4. If ICL = 0 then RANGES(K) = RNGMIN. 

5. If ICL i 0 then K = 0. ' 

6. Compute Nl. 

7. Generate the Nl RANGES values continually searching for the 
special case of zero. 

8. Add Nl to NRANGE value. 

9. If INTVL2 value i 0, go to 11. 

10. . Set RANGES(K+1) = BREAKl. Go to 18. 

11. Compute Nl for next set of ranges. 

12. Repeat the process for generation of the RANGES for the next 
set. 

13. Add Nl to NRANGE value. 

14. K INTVL3 value 4 0, go to 16. 

15. Set RANGES(K+1) = BREAK2. Go to 18. 

16. Compute Nl for last set of ranges. 

17. Repeat the generation process of the RANGES for the final set. 

18. If ICL 4 0, go to 21. 

19.. \:Set::RAN:GES{K+2)''---RNGMA:X.:;; 

20. Add 2 to NRANGE. 

21. Return. 


Subroutine FILSEQ 
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Purpose : 

Reads the required sequential file determined by RPTYPE and 
returns the required data in FILBUF common block. 

Input: 

/CARDIN/ RPTYPE 

PARMTR (5) 

ICASIN (5) 

/FSBHST/ 

/FSGTRU/ 

/FCAMSF/ 

/FYESOT/ 

/FACQUS/ 

/PRTCTL/ . 

Output: 

/FILBUF/ FILNAM (2) 

ICNTRY 

IREGN 

IZONE 

ISTRTA 

ISBSTA 

ICASE 

KBUF (100) see individual routines for which 
quantities used 

Linkage: 

CALL FILSEQ (IH) 

Inputs: 

IH = i Reads header record 
IH = 0 Reada detail record(s) 

Output: 

IH = -1 EOF indicator 
Local Variable Description: 
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Subroutine CLMOVE (NCL) 


Purpose: 

Subroutine CLMOVE moves one set of confidence levels for 
RPTYPE = 03 and JPARM = 4 from the /READNG/ buffer to /FILBUF /. 


Input: 


/READNG/ 


CLEWA (100) 
CLEPRD (100) 
CLATEC (100) 
CLPTEC (100) 
CLATWC (100) 
CLPTWC (100) 


Output: 


/FILBUF/ 


MCREF confidence level reference value 
MCERR confidence level values. 


100 . 


Linkage: 

CALL CLMOVE (NCL) where 

NCL = 1 Area confidence level est/est 

= 2 Production confidence level est/est 
= 3 Area' confidence level true/est 
= 4 Production confidence level true/est 
= 5 Area confidence level true/WC 
= 6 Production confidence level true/WC 

Local Variable Descriptions: 

M = 4900 + 100 =!= NCL location of the requested confidence level 

in /READNG/ buffer. 


Processing: 

1. Compute the location of the confidence level requested in 
/READNG/ buffer. 

2. Move the 100 values from /READNG/ to array MCERR. 


3 


Return. 
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Subroutine PUNITS (FACTOR, lUNlTS) 


Purpose: 

Subroutine PUNITS sets up the proper print and conversion units 
for the Population and Monte Carlo Reports. 

Input: 

/CARDIN/ RPTYPE 
JPARM 
AUNITS 

/CONVRT/ C TAMER (3) 

CTMTRC (3) 

Linkage: 

CALL PUNITS (FACTOR, lUNITS) where 

FACTOR = the conversion factor 
lUNITS = the descriptor of the units 

Local Variable Descriptions: 

JFAC = an array of indices for the CTAMTER or CTMTRC array 

IFAC = index into the JFAC array 

NFAC = index into the C TAMER or CTMTRC array 

IAMERU = an array of English units descriptors that correspond 

to the units in the C TAMER array. 

IMTRCU = an array of metric units descriptors that correspond 
to the units in the CTMTRC array. 

Processing: 

1. Set IFAC = 0. - , 

1 ^, 1 . . 

2. If RPTYPE = 03, set IFAC = IFAC + 5. 

3. IFAC = IFAC + JPARM. 

4. NFAC = JFAC (IFAC). i 

5. If AUNITS 4 0, go to 12. 

Process English units. 


6 . 



T 



i 
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7. FACTOR = 1.0. If RPTYPE = 03 and NFAC = 3, go to 9. 

8. FACTOR = C TAMER (NFAC). 

9. MFAC = (NFAC - 1) * 3 (the index into lAMERU array). 

10. Move descriptor fronn lAMERU to lUNITS array. 


11 . 

12 . 

13. 

14. 

15. 

16. 
17. 


Go to 17. 

Process metric units. 

FACTOR = 1. 0. If RPTYPE = 03 and NFAC = 3, go to 15. 
FACTOR = CTMTRC (NFAC). 

MFAC = (NFAC - 1) ^ 3 (the index into IMTRCU array). 
Move descriptor from IMTRCU to lUNITS array. 

Return. 
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Subroutine MCHIST 

Purpo se : 

THls routine produces the Monte Carlo Reports. It accesses the 
CAS Distribution Output File (CASDIS) through the direct access file read 
routine FILDA. It computes the required quantities and passes them 
through common to routine REPRT2 for printing. 

Input: 


/CARDIN/ 

LEVEL 

JPARM 

PARMTR 


ICASIN 

/HSTOGM/ 

NRANGE 


RANGES (52) 


NZRNG 

/FILBUF/ 

FILENM (1) 


ICNTRY 

IREGN 

IZONE 

ICASE 

NT 

NREGS ' 
NZTOTI 



NBW i ^ 

NPDi 

IBIOWD (4) 
IPRDAT (14) 
MCREF 
MCESiR (100) 

/SELCTN/, 

BIOWD (4) 
IPRD (3, 14) 

/PRTCTL/ 

KOUT 


/RANGE/ START 
INiTVLl 
BREAK 1 
INTVL2 
BREAK2 
INTVL3 
STOP 
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Output: 

/PRNTID/ CNTRY 
REGION 
ZONE 
ICASEN'i 
filnam; (1) 

NAMFMT. 

/HSTOGM/ XM^VAL 
STDDEV 
REF ill 
MINVAL 

maxval 

NTOTL 
DATPRD (3) 

/READNG/ READNG (5600) 

Linkage: 

CALL MCHIST called by POUT 

Subroutines Used: 

CALL FILDA (IH, IREC) . 

CALL F ZULU (IDATE, lOUT) 

CALL LFPA (FLDA, LMO, LYR, ALFGM, DAYS) 
CALL REPRT2 
CALL PAGHDR 
Local Variable Description: 

IH 

IREC 

J 

DELERR 

DELSQ 


28234-6028-RU-00 
Page 304 


Processing: 

1. Initialize arrays, constants, etc. 

2. Get header record; verify case numbers on PARMTR values 
requdsted. 

DO i = 1,4 

If PAiE.MTR(I) 4 0, then verify ICASIN(I) = ICASE6. 

If not equal, write message "ICASIN(I) does not match case 
number on file. " 

Set PARMTR(I) = -PARMTR(I) 

• Save in /PRNTID/ case number 

file name 
country ID 

Set NAMFMT = 1 (file name format type). 

3. Loop on PARMTR(I), I = 1 to 4. If PARMTR(I) ^0 skip, 
otherwise JPARM = 1. 

4. Loop on LEVEL (set from 1 to 3) if PARMTR(4) 4 0 LEVEL = 3 
only. I 

5. Set IPNT: Get bio -window or prediction date. 

For Blow D(I), IREC = I, I = 1 to 4. 

For IPRD(3, 1), IREC = 4 + 1, I = 1 to 14. 

6. If LEVEL = 1, then get all NZTOT records. 

If LEVEL = 2, then get all NREGS records. 
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Direct Access File Requirements for 
retype = 03 the 
. CAS Distribution Output File 



Read header record and save 


FILENM (1) 
•ICNTRY 
ICASE 
NT 

NREGS 

NZTot 

N,BW 

NPD 

IBIOWD (4) 
IPRDAT (14) 


= NAME6 
= COUN6 
= . 1CASE6 
= NT6 
= NREG6 
= NZTOT6 
= NBW6 
= NPD6 
= BWNBR6 
= PDNBR6 


in /FILBUF/ 


IH = 0, JPARM = 1, 2, or 3, NREC = IREC = N and LEVEL =1 or 2 


Read detail record. 
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Subroutine. ANPERR 

Purpose: 

This routine produces if PARM.TR{4) 4- 0 the Population Area Error 
Report or if PARMT4(5) i 0 the Population Production Error Report. It 
accesses the CAS .Cum. Output File (CASE) through the direct access file 
read routine FILDA. It computes the required quantities and passes them 
through common to routine REPRT2 for printing. 


Input: 


/CARDIN/ 

LEVEL 

JPARM 

/HSTOGM/ 

NRANGE 
RANGES (52) 
NZRNG . 

/FILBUF/ 

FILENM (I) 

ICNTRY 

IREGN 

IZONE 

ICASE 

NT 


NSTRAT 

NBW 

NPD 

IBiqWD (4) 

IPRDAT (14) 

APVAL (2) 

Note: APVAL(l) = A ERRS = PRERRS 

APVAL(2) s TWAS = TPRODS 

/SEECTN/ 

BIOWD (4) 
IPRD (3, 14) 

/PRi’CTL/ 

KOUT 

Output: 

i 1 

/PRNTID/ 

1 

CNTRY 

REGION 

ZONE 

ICASEN 


FILNAM (1) 
NAMFMT. 
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/HSTOGM/ XMVAL 
STDDEV 
XMPSUM 
SDPSUM 
NTOTL ~ 

MINVAL 
MAXVAL 
DATPRD (3) 

REF 

/READNG/ READNG (500) 

Linkage: 

CALL ANPERR called by POPDRV 

Subroutines Used: 

CALL FILDA reads data file CASF 

CALL FZULU (IDATE, lOUT) 

CALL LFPA (FLDA, LMO, LYR, ALFGM, DAYS) 

CALL REPRT2 . prints report . 

CALLPAGHDR 
Local Variable Description: 

IH 

J 

DELSTA 

REFSTA 

DELERR = L (READNG) 

DELSQ = L (READNG) 

Processing: 

1. Initialize arrays, constants, etc. 

2. Get bio-window number or prediction date. 

3. Get header record. 

Verify match on case number. 

Move case number, file name, and country ID to /PRNTID/. 

Set NAMFMT flag. 

4. Get detail record (strata records only). 

If all NSTRAT done, goto 10. 
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5. Set ID area if first time through REGION and ZONE in 

/PRNTID/. . * 

6. If not first time through, check for change in LEVEL ID. 

7. Determine if prediction point valid for record. 

8. Accumulate values (Eqns. 19 and 20, or 21 and 22). 
READI^G(J) = DELERRS(S) 

MINVAL. MAXVAL 

DELERR = DELERR + READNG(J) 

9. Read another detail record (go to 4). 

10. [ Compute sums (Eqns. 8, 9, 10, 11, and 12). 

11. Tally readings against ranges. 

12. Call REPRT2. 

13. Get another prediction point at 2, 

14. Otherwise, return. 
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Subroutine FILDA (IH, IPNT, NREC) 

Purpose! 

This routine calls the direct access routines to read the direct 
access files determined by RPTYPE = 02 or 03 and JPARM value, and 
returns the required data in common blocks FILBUF and READNG. 

Input: 

/CARDIN/ RPTYPE 
JPARM 
LEVEL 

/FBLKBX/ FBLKBX (504) 

/FCASCM/ FCASCM (28) 

/FCASDS/ FCASDS (303) 


Output: 

/FILBUF/ 


FILENM (1) 

•ICNTRY 

IREGN 

IZONE 

ICASE 

NT 

NSTRA T 
NREGS 
NZTQT 
NBW 
NPD 
IBIOWD 
IPRDA T 
APVAL (2) 
MCREF 
MCERR 


/IXRCD/ IXRCD (1135) 


/READNJG/ 


CLEWA (100) 
CLEPRto (100) 
CLAtEC (100) 
CLPTEC (100) 
CLATWC (100) 
CLPTWC (100) 


(I 



T 
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Linkage: 

CALL FILDA (IH, IPNT, NREC) 


Inputs: 

IH = 1 Read header record 
IH = 0 Read detail record 

IPNT = for RPTYPE = 02 the number of the prediction point 
(or group noi within each detail record) 

NREC = for all RPTYPE the number of the record to be read 


Subroutines Used: 

CALL RANACF (IFILE, IREC, BUF, N, IX. L, lOPT) 


Local Variable Description: 

IFILE = 14 for RPTYPE = 02 

4 for RPTYPE = 03 ' 

IREC = 1 for header record 

for RPTYPE = 02 
= 63 through 387 
for RPTYPE = 03 
= NREC 

BUF = for RPTYPE = 02 FBLKBX 
for RPTYPE = 03 FCASDS 

N = NWRDS = 504 for RPTYPE = 02 

303 for RPTYPE = 03 

IX = IXRCD an array dimensioned 1135 

L = 387 for RPTYPE = 02 

. 1135 for RPTYPE = 03 


■i . J 

lOPT = Entry point option 

= 0 to open the file 

= 1 to read the file 

= -1 to close the file • 


IH = 1 Ilead the header record 

= 0 Read. a detail record 


IPNT = Prediction point number 
= 1-4 for bio-windows 1-4 

= 5-18 for prediction dates 1-14 


= No. of the detail record to read 


NREC 
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Processing: 

1. If IH = 1 Open file and read header record 

a. file CASF if RETYPE = 02 

b. file CASDIS if RETYPE = 03 

2. For RETYPE = 02 

If IH = 0 Read detail record no. NREC into FBLKBX. 
Move IPNT group to FCASCM. 

See note 1, 

3. For RETYPE = 03 

IH = 0 Read detail record no. NREC into FCASDS. 
See note 2. 

Note 1: 

For CAS Cum Output File (RETYPE =02) 

Read a detail record into FBEKBX. 

Move group IREC into FCASCM. 

For all JPARM values 

Move REGN5 to IREGN 
ZONES to IZONE 

For JPARM = 4 move TWAS to APVAL(l) 

AERRS to APVAL(2) 

For JPARM = 5 move TPRODS to APVAL(l) 

PRERRS to APVAL(2) 


Note 2: ^ 

For CAS Distribution File (RETYPE = 03) 

If LEVEE = 3 (country) 

Read first country record to FCASDS. 

move AEREF to MCREF 

AERR(I) tb'MCERR(I), 1= 1, 100 

move PEREF to MCREF 

PRERR(I) to MCERR(I), I = 1, 100 

move 100 to MC REF 

YERR(I) to MCERR(I), I = 1, 100 

go to get second country record. 

Return 


For JPARM = I 

For JPARM = 2 

For JPARM = 3 

For JPARM = 4 
JPARM < 4 


Z8234-6028-RU-00 
Page 312 


Read third country record to FCASDS. 


Move 


CLPTC6(I) to CLPTEC(I) 
CLATW6(I) to-CLATWC(I) 
CLPTW6(I) to CLPTWC(I), I - 1, 


100 


Return. 

If LEVEL = 1 or 2 (zone or region) 

Read zone or region record into FCASDS. 


For JPARM = 1 
For JPARM = 2 
For JPARM = 3 


move AEREF to MCREF 

AERR(I) to MCERR(I), I = 

move PEREF to MCREF 

PRERR(I) to MCERR(I), I 

move 100 to MCREF 

YERR(I) to MCERR(I)i I = 


1 , 100 
= 1 , 100 
1, 100 
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■ ■ C 


HLBUF 

0000.1 3 
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PODF 

Q0CG16 

C 
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c 

RLAO header FK(IM CAS CUM FILE 
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KflRVAT :l(39il ***** fcRROK IN SueROOTlNt 

ANPEKR *****/ 

ANPERR 


1 7H - TriF, »l3f20H-TH PREDICTION DATE 
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lH /,12 f4H 

-■ 15 -ANPERR 
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DATE ANPERR 
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ANPERR 
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ANOER.R 
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A.NPFRR 
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ANPERR 

c 
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c 

-'INPUT PRFOICtlONi date .ET, PREDICTION DATE FROM FILE. 
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c 
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c 
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C 
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C 
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ANPERR 
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c 
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ANPFRR 

c 
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ANPFRR 
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HFKR 
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C'.'NTKuE 

0 s 


ANPERR 
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ANPFRR 
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SI 
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320 

CUi.TINuE 


ANPFRR 

C 

HlUVAL -^ri.ElO , 


ANPERR 
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REGIUHs, 0 
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^0, 


ANPFRR 
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ANPERR 


OEl.su = 0.0 



ANPERR 


RFF s C.O ;| 



ANPERR 
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NTUTL = 0 “■ 
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* 
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C 
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C 

strata LOOP ' 



ANPERR 
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ISTRATs ISTRaT * 1 



ANPERR 


MFEC: = M?"EC' ♦ 1 .i ' 



ANPERR 

C 
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ixPJTE (KUUT.i) ISfRTA, ISTRAT, N.REC 
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3 

EOK'iAT (3‘>M ♦♦♦♦♦ l:RRnK IN SuSKOuTlNt 

ANPERB 

ANPFRR 


1 21H IILFGAL STTaTa id ,IlO,6ri FOR 

,19, ; 


A'.PFRR 


2 2IJU-1H strata l.lFCfiRi) ,I4,WH OE CAS CUM FILE) 

) 

At pr,(R 


.STUP • 

' ' 
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000179 » ' 
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AMPERR 
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IF ( ZOMH. .f'.'t. 0 ) GO TO 020 
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000 101 , 

c 

first strata of thts zone ■oh HEGION 

AMPERR 

OuClf<!! ■ 

c 

stoke current region and zone 

Af'PFRR 

000 mi-- 

«15 

REGIONS IPEGn ; 2'^ : , - 

AAPERR 

000 ina 


ZONE = IZUNE i . • 

ANPFRR 

ouomi 

C 

i ; ' ■' " ■ ■ ' 

ANPERR 

000156 

020 

IF ( tE'i'E-L - 2 j O30»000»060 

AMPERR 
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C 


A N P E H R 

0 C 0 il * ti 

C 

LtVtL-= 1 (7.UWt) 

ANpERH 

000^09 , 

030 

IF ( IZUSE .NE. zone ) GO TO 500 
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OOOilOU 
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ANPERR 
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C 

level = 2 (REGIOlO 

ANPERR 
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■ 000 
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ANPERR 
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c 


ANPERR 
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STfHF P'JPULaTIOi^ error IN REAONG ARHAy AWO UPDATE 
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por.ii<>3 
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ojOr^oa 
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OuOcCi 
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TtST FOm ,LN0 uF country • 

AN'PFRR 

noo2u3 
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000206 

C 
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c 
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c 

CUMRUU MEAN VALUE,' STANDaRU deviation, ETC. (EOS. 8-12) 
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ANPERR 
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IRANGF, (!'ZPnG)= IKAUOt(NZRNG) ♦ 1 
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hODF 

MODE 

hOUF 

MCOF 

MOOF 

MODF 

MODE 

MOuF 

MOOF 

CL. MOVE 

CLMOVE 

Cl , move 

Cl MOVF 

LLMOvF 

CLMOvE 

CLMOVE 

Cl rtovr 

tl move 

Cl move 
C l HOvE 
Cl MO vF 
Cl move 



■ f 



• C‘ 
I 





! Q 



1 l; 


) 




1 

I 


} 


; 0 


- 1 ' 
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O* o r»j cr 
^ ^ 

o o o o o o 
C ' o c: ;:r c: o 
O O o o o o 
c o o c o o 



r 


r Ei.T f ILUAtl, 7 b 0511 t 59152 


oon;ooi 
ooo^^2 
0 onion 3 
ouf'ionu 
OOilioOb 
OOOQCo 
ODOion; 
0 0 n|o n a 
OL'0L'n9 
OOTlOlQ 

non&I 1 
00i':ci2 
n (j 0 0 1 3 

0C'C'(ikl4 
nc0(;i5 
00 16 
nocot / 
noooto 
nucol't 
ooouPO 

C00o?l 
OOOU22 
nuno?3 
cocoPa 
n 0 n 0 ?S 

0 0 0 ri ? o 
nu'- r. P7 
nuoo^o 
000029 
000030 
ncnu3l 
0 0^032 
000^33 

nonu3^ 

00PC3S 
O0C03f> 
000037 
OOO.J 33 
0 0 00 ■3 9 
OOOOuO 
no-niui 
noooiiP 
O0C0O3 
0U00O4 
OOOO'iS 
OOO0«6 

nooQo; 
0 0 0 0 ft s 

000169 
CO'. 1.1 0 6 

0 Of' 05 1 
000052 
0y0u53 
OO.iOlft 
0(l0t|f'‘> 
0U‘U“-6 

01 '' l.l'v / 

oo>: t<5o 


SUiiROUTlNE FILDA (IH? IFK'TtNRfC) FiLOA 

CALL TmL-RANDQ'I ACCESS RUUTIkF 9ANACF TO REAO THE CAS CUMULATIVEFILOA 
FTLF (C5SF) OF ThE CAS OIS ) RIFUTION FILE (CASOIS) FiLOA 

- FIiLOa: 

COPlI-lON dLOCKS jJ _.‘U FI LD A 

COUt'UN /CAHDl'VRRTYPE«AtJNlTSfPAFMTK(5) CARDI?' 

♦ , ICASIM(5) tLEvELtJPAHMflERH CAF.DP 

lOTFUFR RP1 YpFf AU'-'ITS.PAH'nH tAKOI" 

CO.'OHiL /M-LKhX/ FFLi3l'V(pa*l9) H'LK;)) 

COM'UII /KaSUS/ HCASoSCS-OiL fcasd; 

FCAso: 

DII.ENSiCk n'':HO«6Cft)*FD’'<BF6U«)tAERH(lOO)»PfiERR{100)»YERRnOO) FCASD? 

*, Clt'fbOOO) fCLEFRo(lOO) »CLArC6UOO)»CLPlC<>aOO^ FCASO! 

• t CLAT/.6(lU0) ,CLFT.'.6CtOO) ’p ' FCaSo! 


IN'TF-GLK af.|.MR6,P|.'.fLH6,C00N6 
LOUTVALF^C!. 

♦ (FCAS'JGU) ,NA* hR,AtRtFJ , (FCAS0S(2) »lCASE6fPEHEF ) 

♦ » (FCASt>dC3) .C0U\6| 

», iFCASDS(y) ,i'IT6,ALRK(l) ,CLEn<>Cl)tCLPTC6(U) 

(FCASi’SCi) f'fh'^aSo) f (FCASDS(6) *N'ZTOTt>) 

♦ » (FCAsDb''Cb) r'-'bnb) * (FCASDS(9) fNHDd) 

♦ t (FCf.s:s(tO)fbw'.ph6(t)5» (FCASDsaflifPcunKbii)) 

♦ f {FCAsr5(in/4),DKFi<R(n»CLePH6(n»CLAT.>6(in 
*, {PC.--St'5(2ny)tYfcRK(nfCL*rC6(nfCLFTt'0(l)> 

C0( 'ivjN /FILOuF/ F IU-'.Fl?) »iC^ThYrIHF6rl,IZ0^E»lSTHTA 

♦ , ISUSTAf !C»bt,H;4SEG 

*f KaLF(l25) 1 

Dl MENS I Of. KWI.^(6) fiainyiOCft) ♦IPROATClft) iPRDATE{6),XEPH<A)fXtYL0(6) 
♦f afVALCPJ 

♦ f fiCfcRROOO) 

RFaL (■•CREFtFCtKH 

INTEGER HLE,‘.M,PrtUATt - , 

eouivalfwce (Kburni ,f-'SE6*.9T»KHiita)) 

♦, (KBljFt?) f lGPML,(.ST«AT,.9MEGSi 

•» KPljF (3) ‘.ZTOT) . 

♦ » ('lEUjF ( ii ) * A^L A f f. Bl“ 1 

♦ » (AOuFCSJ .XTF’* t'.'HO) 

*, (KAijKA) ,N,IHin.>D(l)I 

♦ ♦ (nfuFa) »MA) 

♦ * (ACuF(ft) rXMl'’.') 

*1 (0~oF(9) tXCvRJ , , - 

*. tXf-uFnO)»XTPAl»lpf?OAT(I)) 

♦ » (Af iiF(i n ♦PpoATtcn) 

*, (H! !,.(• (211 TXLVL''a J ) 

♦ * (rNftuF CbN) , Af VaUD fiNCREF) 

♦ f (A.OuFI?'..) 

Yf (i'.PuF(?V) tXIYLP) 

COr•,Mu^ /Ui-iJ)/ lX.iCu(5no) 

tai'lUli. / .<PAi'.Lf"-l.lNtSfMAXLlNfKnUTfHtM)tH(l«>) 

riT' i.iM 1. 3 /.'> ■! 

n.i i.t iO‘ii(’.(soOo) 
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\ 

» 

000059 


OlMEtiSirN CLEWA(100)»CLEPRO(100)»CI.ATECC1003»CLPTEC(100} 

modf 

OOOOfrO 


*» CLATWC(100),CLPTkC(100) 

MODF 


0000/-1 

c 

r, ' 

MPOF 


00 0 062 


tCuIVALl'NCE ' CReAONGtSOOlJtCLEWAa)) 

modf 


0Uil(i»,5 


♦ f CP.EAf N0,(5IP1) »CUEP9U>n) » {W£AU''IC(5201 )»CLaTECC1)) 

mpdf 


0 0 0 (j h i4 


*» (HfAl’NC(b3l’l)*CLPrFC(n)» («£Ai;^G(5«01)*CLATHCa)) 

MCDF 


OooooS 


»f (Kt'A(?‘<GC5S01),CLPT^'C(l)) 

mcdf 

> 

000066 

c 

— 

FILDA 


000067 


t)IME..SlOrj lol.K0X(‘j0<O 

filda 


oonooa 


trauIVALFNCt ( IsLKbX.FBLKdX ) 

FILPA 

t 

iU0’j69 

c 


filda 


O00o7u 

c 

I 6 P 1 1 1 ■ • • 

filda 


oooon 

c 

l,F.Vh'L, ■= 1 -FOR ZO.--F LEVEL 

FILDA 


OOOoT^ 

c 

= 2 FOrt KEGIUm LtVELf 

filda 


0U(,(,7J 

c 

= 3 F04 CnUMTHy LEVEL. 

filda 

i 

oo'’ri“7-* 

c 


F IlDA 

> 

00Ou76) 

c 

RpTVPEis KFPOHT TYPE 

filda 


010076 

c 

( = 2 EPR POPULATIO!/ ERRORS)' 

filda 


00007/ 

c 

( = 3 FOri t.nMt CARLO E«KOkS OR- COkFIOEUCE LEVELS) 

filda 

:> 

0 U 6 0 y 4 

c 

JPARP s I‘1UEK rtHlrn OETEKMivitS PARAMETER TO bE REPURfED... 

filda 


OUim/7‘> 

c 

IF RPfYPE s ? AMI , 

F-M-; lYA 


ooi'O)'.) 

c 

IF JPA6 ! 3 4, iHi.N PuPuLATIOiJ AREA ERROR IS REpPHTEO. 

F I L OA 


OOC'Ofl 

c 

IF JPAK6 3 s. Then PuPOL. PRunoCIlON. error is HEPChTtO. 

FILDA 

ti 

0000'’2 

c 


F ILPA 


CO-OPS 

c 

RPTYPE = 3 AND 

filda 


oonof^4 

c 

IK JPAk*-' = it Tmen area data is extracted FPO-1 CASOiS, - 

filda 


0 0 0 0 f- 5 

■ c 

IK .JPASM a ?,THFn PRCDUCTIOn OaTa IS EXTRACTED FRCP CASOISFILDA 


OOOu'^o 

c 

IF -JPAK'' = 3f (HEN yield OaTa IS EXRACTFD FROM CASOIS 

filda 

1: 

00 OOP? 

c 

IF JPAPH s Of THEN’ CONFIOENGE LEVELS AnE FXTRACTEC FROM 

filda 

' ;': ■ i 

our'Of.2 

c 

CASUIS 

filda 


000059 

c 


filda 


OOOOOO 

c 


filda 

. , 

000091 

c 

Ll'lKAOE ... 

filda 

■il:' 

000002 

c 

CALL EILOA (IHf IPNT. nREC) 

filda 

$ 

OOOOoi 

c 

l.t'ERL 

FILDA 

!|’ 

000094 

c 

Ih = 1 To head HEAuEH HECOROf 

F JlDA 


GOOOOb 

c 

= 0 To READ data (DETAIL) RECORD. 

filda 

j 

00^096 

c 

IPNT = PREDICTION POINT- NUNBER 

F ILDA 

,p 

CC0097 

c 

f-REC = RECORD Nih-.REH TO HEAP 

filda 

:: 

ooro'’a 

c 


filda 

P: 

0C0ijO9 

c 

local VaRIARLIS ... 

filda 


OOOlfiO 

c 

IFRE = KILE NuvtiFR 

filda 

000 iri 

c 

f.HRDS = I'.'ii.MriER OF hORPS TO READ 

filda 

i 

000102 

c 

• LiX = LE(.GTH OF INDEX RECORD {MAXIMUM RECORD NUMBER) 

filda 

■ :|' 

000103 

c 


filda 


000104 


INTEGER CASK. CaSuIS 

filda 

:> 

OOCKS 

c 


filda 


0 0 0 1 0 6 


OATA CASK , LC«&r . CASDIS. LCaSO » LIXCAS. LlXOIS 

kiuda 


000107 


1 / lA , 500 . 4 , 303 , 3B8 , 5o6 / 

filda 

:> 

000108 

c 

note ... LlXOIS = 506 ALLLVRS UP TO 8 PREDICTION POINTS 

filda 


000109 

c 

(1‘CLKPIf G ■3 :Uj''1N0C«S) 

FILDA 

' ■ 1 

0 m> 1 1 0 

c 

( ( tbi DAT A iRECURUS ♦ 1 HtAoCrt RECORD ♦ I INDEX RECORD ) 

F ILDA 


000111 

c 


HILDA 

1 

000112 

c 

' ' 

FILDA 


000113 


IPEC P PRFC 

filda 


<'06114 


IPP t 1P‘, T - 

HILDA 


0 C n n >3 

c 


filda 


0‘ t 0 11 6 

c 

test KEhonT type and SET KILE NUMcEH. FILE LENGTH, AND FILE 

filda 

0 

o<'ni7 

c 

•■'Al E TP ShAO CAS CUM FILE IF RPTYPF = 2 PR TO READ CAS CI5TR. 

F ILDA 


I'U'ilto 

c 

F Uf IF PpTYPt = 3 

HILDA 


s 


II 

© 

Ci 

SI 


r' 




' r 


; f 


> r 


i 



. *! 


I 


i U 
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OO'OltV 

C 



HILDA 

OOfllJO: 


IP { RpTYPE ,E0. 2 ) GO TO 120 


filda 

t'O’Cl?! 


IF ( PpTYPt .eo. 5 ) GO TO 130 


filda 

0C0l?2 

c 

ANY VAI.UF OP HPTYPE FXCEPl 2 OR 3 X5 AN ERROR 


FILDA 


• no 

CALI. PaGmDK C-2) 


filda 

oonipj 


.vRITh (KU''T»1) RPrYPEfJPAUM, LEVEL 


filda 

00012S 

i 

pohvat erhok in subroutine FILOA 

filoa 

ooniPo 


1 2PH ILLEGAL VALUE OF RETYPE =tl«fl2H OR JPARM SflOt 

filda 

000l?7 


2 lOH. LEVEL =19) 


filda 

nooi?(i 


STOP 


filda 

n'jni?9 

C 



Fit"- A 

o'jono 

C 

WPTyPE =2 


FILOA 

ooni 5i: 

120 

IF ( JpAhR ,lT. 9 ) GO TO 110 


filda 

oonna 


IFILE s CASE 


FILDA 

n c n 1 1 3 


N^Rns = LCASF 


filoa 

0001 3“ 


F!LEN»'Cn= 6MGASCU9 


filda 

nOM. i'vb 


LIX = LIXCAS 


filda 

■'00136 


1‘^nu ..\L. OIOEFXNc pile HCSeBtSOAfOilOUH) 



01.; ii 1 3 / 


GO TO 150 


FILDA 

noci,3tt 

C 



FILDA 

000139 

c 

RPTyPE = 3 


filda 

n 0 r ] !i 0 

130 

IFLLE = CASniS 


filda 

0 0 n 1 0 1 


N'HhG = Lf.ASG 


filda 

0 00 10?, 


ritPNt-(U= 6HCA.50IS 


F IlDA 

0 0 '1 H 3 


LIA S HXUly 


filda 

.0 0 " 1 /J '1 


1F(IH /h. 0)0EriNE FILE 9(5o6f 303tU,IOUM) 



ooni<j=j 

C 



filda 

PuOliijS 

150 

PILEvR(h= 1h; 


filda 

0 0 0 1, 1. 7 

C 

. 


F ILDA 

0 0 n 1 |j 3 


IF ( IH .EO. 0 ) GO TO 200 


filda 

oooii') 

c 



filda 

nuoi,$o': 

c 

IM r 1. OPEN RaNODAI- ACCESS FILE aNO READ HEADER 

record 

filda 

(HUM 5 ,1 


CONTIMI'P 



•oooio^ 


CALL r.'ANACP (IpfLEf lfFaLR-''X*.JW»<l)S»IXSCOfLIX.l) • ■"■■■ 

. 

• FILDa 

000193 

c 

Check pill .la'^e • ; 


F IlDa 

IIUOl'fM; 


IF ( IbLaBaU) .to, FILEUPd) ) GO 10 170. 


filda 

oocisy 

c 

■ — 


filoa 

nooisb 

c 

ERRO.R. file na^E does NoT MATCH 


filda 

000157 


CALI, PaGHOR (-^2) 


FILOA 

000 1?0 


'►-.RITE (K.OliT.2) HLENM(i) ,PBLKBX{1 ,n 


filda 

000 1 0.9 

2 

format (3PH tRROR IN SUBKi'UTINE FILOA 


filda 

0 0 0 1 0 0 


1 16M PJLf MA’"t UP fAfefloH PILE B »At>t31H— OOE-3 

NOT MATCH 

expefiloa 

0 00 191, 


2CTtO VaLUF ) 


filda 

000192 


STOP 


filda 

0 0 0 1 A .3 

C 


! Li 

filda 

000 i^a 

c 

extract InFORIATION from header RECORD 


filda 

00) 19 b 

170 

IC.NTRYs IRLKtiX(3J 


filda 

000106, 


ICASE s IHLKbX(2) 


FILCA 

000167 


M; = IPLV3X('i) 


filda 

0 0 0 1 6 H 


.mR-LOS = IPL'<6X(5) 


filda 

000169 


NZior = i6lhux(6) 


filda 

000170 


IF(»PTyPE".'.E. 3)VSTHaT = IBLKBX(7) 


H003 

000 171 


h'U. s im.9i)X i3) . __ 


filda 

000172 

, 

l!PO = IllL''!iX(9) ili 


filda 

O0'>i7J 

c 

i — 


filda 

0001 70 


DO 100 1 = 1 ,0 


filda 

0II017S 


I9ifi„r-(J)= l!)LfdX(I + 9) 


filda 

0 0 0 176 

160 



FILDA 

O00177 


IE ( 1 I’D .1-0. y ) Gu Tn ?uo 

- 

filda 

000 170 


m IVi) I=t.NF!) 


filda 
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000179 

OOOIRO 

190 

0 0 0 1 a 1 

c 

OUO l?2 
0 0 0 1 P i 

■ C 

0 0 0 1 e 4 

C 

OOOIRS 

c 

ouniao 

200 

0 0 nil 3 7 

C 

COOiina 

C 

OOOiiAO 

OEo:ioo 

c 

OCOilRl 
0 0 Oil 92 
0 0 0:193 
O00il99 
00 0,195 

C 

0 0 0 1 c 

c 

000197 
OOOilPrf 
0 0 0;197 

cto^oo 

c 

OoOfjOl 

c 

0^0202 

2aO 

oooljoi 

0 u iV n 4 


ooOijoS 

c. 

0 002T.3 

■ ,C ' : 

Q0O207 

c 

000203: : 

300 

000209 

00021 oi 

c 

000211 
00021 2: 

c 

000213 

C 

000219 

310 

0 0 0 2 1 3 

00021 o 

c 

000217 

320 

000213 

000219 

, C 

000220 

350 

000221 

C 

000222 

340 

000223 

000229 

000223 

350 

O00P.2& 

OOC227 

C 

OO'ic'PO 

C 

000229 

9 00 

000230 

000231 

000232 

910 

0002T3 

C 

000239 

C 

ooo23‘3 

ni/i>2Xt> 

-23/ 

0oO2<H 



IPRDAT(1)= IBLK8XU+13) 
continue 

GO TO 900 - . 

read OATA (DETAIL) RECORD AND EXTRACT DESIRED DATA 

IF ( RpTVPt ,ECi. 3 ) GO TO 300 

RPTyPL = 2.. REaO detail RECORD FROM CAS Cl'M FILE 
CALL OaNACF (TFTLETTHECjFeLKbXfNnRIiSflxRCDfLIXtl) 

IREr,N=IuLK0X(l)~ 

I7.UVL= Ici! R>’X(2) 

ISTPTAs IHLFU''(3) 

IF ( JpARM ,£Q, s ) GO TO 290 

jpAR i z 9. store; tpuf wa amo area error 

APVAL(l)= F«LKbX(Rf:IPP) - 

APVAL(2)= FPL(<OX(6:j;IPP) 

GO TO 900 

STOtf! ThUt pRiJOGCriUN and proouction error ■ 

APVAL(l)= FBLKSX(12*1PP) 

APVALC2JS FBLK3XC10*IPP)_ 

GO TU 9( 0 , ;i 


RpTyfEa3» READ detail record FRDM CAS 013TR. FILE 
IF ( JpTRM .EU. 9 ) JHECs IREC ♦ I __ 
call RAl ACF (IHLEilREC,FCASDSfN«ROSiIXRCO»LlX»l) 


GO TO (310»320,33n,900) * JPARH 


JPAR!»=,1 
11= 9- 
GO TO 390 
IPArF a 2 
11 = 104 
GO TU <90 
Jt-ApP = 3 
II=2u9 

Hr.hEF 3 FCaS 0 S(. 1 PAHM) 
DO 3S0 IrtfloO 
MCfcPRfDa FCaSDS(II) 
11= II ♦ 1 
GO TO 900 


JPA?P 3 4JU J • 

DO 010 131,100 

CI-EVA(()= FCaSDS(! + 3) 

CLLPHDcl)= FCASOSn + 103) 

CLATtC(I)= FCAS')sa + 203) 

head i-EXT group of COnFIOENCE LEVELS- 
IPKr.a 1PI.C >1 - . 

CAU Pj-Ar> ( II- TLE, TPFC.FCASDSf NoROS, IXRCn,I.IX,l) 
I/O <IJ(. J = 

Cl.PTtC t I)= FLAoOS(iFi) 


filda 

FILDA 

FILDA 

ftloa 

FILOA 

FILOA 

FILDA 

FILOA 

filda 

filda 

filda 

filda 

filda 

filda 

filda 

filda 

FILOA 

filda 

filda 

filda 

filda 

FILOA 
F ILDA 
FILOA 

filda 

F ILOA 

filda 

filda 

filda 

filda 

F ILDA 

filda 
filda 
filda 
filda 
filda 
filda 
filda 
filda 
filda 
filda 
filda 
filda 
filda 
filda 
filda 
filda 
filda 
filda 
filda 
filda 
filda 
filda 
filda 
filda 
FILDA 
F ILDA 
filda 
FILDA 
filda 
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000239 t •' CLAT**C(I)» FC AS03 ( 1+ 103) FILOA 

0002«0 030 Cl.KThC(n= FCASOSCl+203) ' FILDA 

oon,2ui c : - - ^ filoa 

000202 900 KFTUHM FILOA 

000203 tt+ti ' ' FlLOA 
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* tuf FILSEQtl,760S13f 6l«l« 


OOOOOl 


SUBPUI'tINF FlLSEOdH) 


FILSEO 

OOOOC2 

c 



FTLSEO 

oooun’i 

• c 

THIS POUTInF PE/DS the PtnUlHEO SEiiiltNTIAL FILE(S) OETfeRMlNEl) 

BY THE 

FILSta 

P 0 '' 0 0 ^ 

c 

RPTYHE FLAG AHL HET'JKNS THE hEJUIREO OATa IN COMMON bLOCK 

FILBUF 

filser 

nooona 

c 



FILSEO 

00PC06 

c 

17'Piil - TH s S REAiiS HEADER HECOHO 


F TLSF.Q 

0 0 POP/ 

c 

= 0 reads PiETaIL hECOKDS _ 


FILSE'3 

OoPC''® 

c 



F ILSE3 

0 0 0 6 c 9 

c 

OUTPUT- IH 3 -1 E'.n-nK-HLE encountered on FILE(S) 


FUSED 

POOOlO 

c 



FILSED 

OOP'Otl 

c 

♦♦♦ cnuMON storage 


FILSEO 

0000)2 

c 



FILSEO 

OoPOli 


COHHOM /CARUlN/RHTYPE.AimnSfPARNTR(5) 


CAHOIN 

OOOOt.'l 


ICaSIN(S) .LE vELf JPARM.IERR 


CARDIN 

OOOfil‘3 


INTFGFH RP IVHFfAD'UTb.HAHHlR 


CAkDIN 

POPOIO 

c 



HL'^bO 

0000 V7 


cnp.yON /PR7CTL/ wP AGE ffiL ires fHAXLlN»KOUTf HEADER! 16) 


prtctl 

0 0 0 0 J y 


imfger header 


PPTCIL 

OOPOl V 

c 



FILSEO 

OOPuPO 


CDmHON /FiLBi.F/ FlLEHv(?),xCNTRYfIREGN»120NEtISTRTA 


hlbuf 

conripi 


*, ISOS) AtlCAbEfKXSEG 


HOuF 

oooiopa 


♦ » RHUFU25) 


hODF 

OOP!0?i 

c 



FILBUF 

0 0 C 0 ? y 


DIHENSiON KV.1N(4) fIHI04mu),IPKnATn4)*PR0ATE(6)»XEPH(«)»XEYLC(6) 

FILBUF 

POPpP'j 


♦ » AyVAK?) 


F I LPur 

nOPt’20 


♦ , PlExRUOO) 


MODE 

00 PI;? 7 

c 



filbuf 

0 0 p a ? 0 


HFAL MCHEF fiiCERK • 


M'DF 

nooG?9 


integer FILENHtPHOATE 


filbuf 

oooolo 

c 

, ■ ' 


filbuf 

0 ^ 0 1 


EGUJVAI.FnCE C'U'iEn) ,vSE(i,('.'T*KHlN(l)) 


F iLf’UF 

POPP 5t-' 


», (Pbu'FC?) tIGP .'STPAT,NREGS) 


NCaF 

pC0u')3 


♦ * ( Kf'or ( 3) » XTv i * '.’2 TuT) • ■ 


hO[iF 

000034 


«, tKPijF(aj .AHEA tNuN) ^ 


modf 

OOP03lj 


♦ t (RNuFCS) f XTp'.s,';HLi) 


HDDF 

n0P036 


• * (RPiiF(P) »N*I«inpn(l;)) 


hddf 

0 U 0 (H / 


♦ » (PI'UF (7) »!IA) 


HPdF 

000C56 


Tf (KFuF (P) tXHTPiO 


MODF 

00PC39 


»f (P4,,A (0) ,XCV?) 


moof 

00 It 00 0 


♦ » fRHuM.tO),;<!P.i)»IPRDAT(l)) 


modf 

?ooc«l 


F* (XPL.F(10 ,Pr(!lATE(n) 


MODF 

000002 


♦ » (KRur- (1 7) tXEP.if m 


HCDF 

POOt'.-i) 


(KPu'- (?n t'XEYLfUD) 


hP[)F 

000044 


Af (PKdF(? 41 f AHVAl.O) .MCREF) 


HPliF 

POOOaii 


*« (RH,<F(.?S) f'-CFRROn 


KtiOF 

0 O'} 0 4 0 


♦ » (M'UK(2/) tXTVLD) 

* 

hodf 

000047 

c 



FILSEO 

nopo-tb 


COMHON /FHEAUK/ IIA«E(?) ,lCASEFtlNXbF.G 


fhladr 

000049 

c 



FILSEO 

00(1 (jOU 


Cn.V'CN /FSiHbT/ LnuMl,hPGNl,ZDNElf 5THTAltSbSIAltlNEGtNDSEG(162) 

FSfaHST 

OOfiOA) 


OTHEnSIOn XSEGOo?) 


F5HHST 

COOu'’? 


IUTEGEh CQUI l.HEG-il *20..E» »STkT A1»SB5TA1 


FSbHST 

OOOoSi 


Ef:uivAtr<rE (XSFGCi)f’'nsEG(in 


FSOHST 

oorifjso 

c 



FILSEO 

nooiiOb" 


CPt:no.v /esgTs'IV CnU'.'2,HFG-ir:*znf,E2»STKTA2fSBSTA2tSrGMT2 


FSblkU 

0 0 0 r *1 


•♦f U'l ■'^dCO) ,Tf-'v^,TP.-.2 


FRGIRU 

pv,''.sy 


LOU!, UN /HAir.H)/ hatch , 



PlHi/'i > 

c 

' 


ISgTRU 
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. 

T-^-y- • 




000059 

INTfTGER C0UN2»REGN'2fZ0NE2tSTRTA2»SBSTA2fSEUMT2 

FSGTRU 

o 

000060 

c 

FILSEO 


0 0 Op M 

COKMOK /Fr.AMSP/ COUN3,RrGN3»ZnVE3»STRTA3»SBSTA3tSEGMT3 

FCAMSF 


0000^2 

♦ , TPo3,EWI('J')0(3fi4t) 

FCAMSF 

© 

n 0 0 0 f.i 

• C r i - 

FCAHsF 


0 0 0 0 6 4 

GTMEiJSlOf, lWI\'(3»aj : 

fcamsf 


000065 

C 

FCAMSF 

© 

000 066 

IMTECFR C0UN:3»REGMl*Z0NE3fSTRTA3»SBSTA3rSEGMT3 

MOOF 


nooof,? 

C 

fcahsf 


OUC06H 

EOL'IVAlEN'CE (twIN(l*l)tEf<INno(l»l)) 

FCA'-'SF 

0 

0UO069 

C-. . 

FiLStQ 

p: 

000070: 

. COMIIUI.’ /FYESOf/ C09MAtHEGNa»20NEytSTKTA«>YSTRtYSPMT(3»6) 

FYF.S0T 


0 0 (TO 71 

■C' ■ ' H ' 

fVESoT 

9 

OOObTd 

■ DIMENSION 1YSPnT(3*6) 

fyesot 


000071 

' C 

FYESUT 


00007*4 

integer CDUNA tHEGM4»ZnNFy*STHTAy 

fyerot 

9 

00007S 

c 

FVf SOT 


0 0 0 0 7 1, 

E(JUlVALFI4Ct (lYSRNT(ltl)»YSPMT(ltl)) 

FYESOT 


000y77 

c . ■ ' . ■ 

filreq 

0 

nooi)7a 

COMMON /FACOU'l/ COUN7,HEGN7*ZONE7»STRTA7»SEGMT7*IWINOO(25*<OtITOTLf-ACGUS 


000079 

^ c ■ ' ^ ‘ i ■ ' 

FAcnuS 


ouoo»o 

integer COuN7tHEG:i7f20ME7»3TRTA7,SkGMT7 

FACdjS 

9 

000071 

. C , 

FILSEO 


nu')of*2 

COMMON /SUOHS/IC.SESH 

MOD 3 


000u»3 

c ‘ 

FILSEO 

9 

0 0 r. 0 p 4 

C LOCAL storage 

FILSEO 


OOOOOS 

c 

fuseo 


OuOO^o 

IMTEGFh E'r.uri,FSKG»FCAM»FYES*F ACO 

FILSEO 

0 

000007 

DATA f sEI1,ESEG,FCA'''»FYESiFaCU /3*13»7f 10tl2/ ^ 

F ILSEO 

1 

oQOopa 

DATA IZZZZ /4HIZZZ/ 

FILSF.0 

u 

0 0 0 0 6 9 

c 

FIlSEO 


0C0O90 

C branch TO read header KECORD(S) OR' detail RECORD(S) 

FILSEO 


0000°1 

c 

FiLStO 


oCo.';‘!2 

IF (IH.FU.O) G.l TO 300 

F ILSI 0 


000 091 

c • 

FILSEO 


00O0O4 

C ♦»* BRANCH 6Y RPTYPF To PROCESS HEADER KECOROCS) 

FILSEO 


000095 

C 

FILSEO 

9 

000096 

GO TO Cl00»2o0,600»120)» RETYPE , 

FILSEO 


00OU97 

C 

FILSEO 


O0''09t3 

C RPTYPE = 1» SOBSTRaTa HISTORICAL FILE (SUBHST) 

FILSEO 


000099 

. C 

FILSEO 


oooioc 

C RErtlMD SOPHST AMJ READ HEADER RECORD 

FILSEO 


oooin 

C 

FIlSEO 


000 u»2 

100 RErflND FSDB 

FILSEO 


000,103 

C 

FILSEO 


0001 oo 

REAP (FSUP.) fJAME(t)fNAhE(2)flCA5EFtlMXSEG 

FILSIO 


0 0 01 0 5 

■■ . C.'.. 

FILSEO 


000:106 

C . SAVE HEAUF:K INFO 

• FILSEO 


000107 

c • 

FILS to 


0001 OS 

FILENM(l) s N-AME(l) 

FILSEO 

1 

000:109 

FTLFNf'c?) = NA,nEl2) 

FILSEO 

1 

000110 

ICASE = ICaSEF 

FILSEO 


000)11 

lasFG = 1 h,^SeG 

FILSEO 


coot 12 

1=1 

PlLSlQ 


000113 

Micros = mxseg-m? 

MODF 

> 

00 my 

GO TvJ 150 . 

F ILSEO 


0 C 0 1 ! 5 

C ^ ' 

F iLStQ 


0 0 ■' 1 1 6 

c RPIVf’E = 0 , data ACOUISTTION FILE (ACQUIS) 

FILSEO 

~) 

I'vmi 

c ■ ■ 

Mlslo 


null! 10 

IPO HFoI Hi FACiJ 

FiLSfcO 


'} 

I 



i 

I 



j 

* f. 


1 



/> 

t V 



I 



I 

f 


I 

« Cv- 

I . 

1 ' 



I 
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I 


000119 

C 





3 

filseo 

oooieo 



READ (FAC'D) NAKE(UtNAME(2)*ICASEF 



FILSEQ 

0001?! 

C 





FU.SEO 

0001?^ 

c 


SAVE Header lA'FO : ^ , - 



FILS to 

000 , 

■ c 





FJLStO 

000 100 



FTLE-MhO) s WAHEd) 



FiLStO 

OOOl.PS 



FILEHH(2 ) = nAme( 2J 



FiLStO 

nooi;2o 



ICASE = ICASEF 



FILSEO 

0 0 0 1 ? 7 



1=1 



FiLStO 

00oi?f} 

c 





FILSEO 

OIJO 1 ?V 

c 

♦♦♦ 

TEST F0 » FATcH OM REQUESTED FILE CASE NUMBER 



FlLSt'J 

r.oouo 

c 





FILSEO 

ooom 


ISO 

IF (ICaSIN(I).ET. ICASEF) GO TO 500 



fjlseo 

000132 

c 





FILSEO 

000133. 

c 


ERHOK - CASE flUMUERS DO -NOT MATCH 



FllStO 

C 0 1 3 <i 

c 





FiLStO 

000l3‘j 



CALL PflGunKC-O) 



FIlScO 

oon 13b 



VtRlTt (FOUT,62 oO) I . IC AS IM (I ) » ICASEF ,NAME( 1 ) tNAHE(2) 


FIlSEO 

000137: 

c 


STOP 



FiLStO 

000130 



GO TO- TOO 



FlLStiO 

000139 

c 





F ILSEQ 

0 00 1 f. 0 

c 


RPTYPF z 2 



FiLStn 

000 l«l 

c 


PAhFTRd) = l< SEGi'fNT TRUTH FILE (SEGTRO) ♦ 

SUBHST (JPARM s 

1) 

FILS to 

0001 C 2 

c 


PAK-'[rR(2) = If CAMS OUTPUT FILE (CAHSF) t SUBHST (JPARM = 

2) 

FILSEQ 

000 103 

c 


PAK'iT;P( 3) = If V£S OUTPLT FILE CtESOUT) ♦ SUOHST ■ (JPARM = 

3) 

FILSEQ 

0 0 0 1 u a 

c 





FiLStO 

OOOli'-^ 


200 

Gil TO {,2i0f220f ?3n) f JPARM 



FiLStO 

ooni;(*6 

c 





F IL5L0 

00 01:0 7 

c 


JPARM = 1, SFGIRU ♦ SUBHST 



FILSEQ 

00 0 10' (1 

c 





F iLStO 

non li 09 


210 

REnlNO FSFG 



F ILSEO 

'1001^0 

c 





FiLStO 

ful 0 1 H 1 



read (fsLG) NA-tF(l) fNAMF(2) f ICASEF 



FiLStn 

000152 

c 





FiLStO 

no til 53 



GO TU 250 



F II SEO 

noo 150 

c 





FILSEQ 

oonr'^l. 

c 


JPARM = 2f CaHSI ♦ SURHST 



F ILStO 

000156 

c 





F ILStO 

0UC1''^7 


220 

RFrtTND FCAM 



FILSEQ 

000153 

c 





FiLStQ 

non 159 

, 


REAP (FCAH) NAMECD fNAKE(2) flCASEF 



F ILSF.O 

000150 

c 





FILSEQ 

000151 



GO TO 250 



F ILSEQ 

nooi/,2 

c 





FILSEO 

000153 

c 


JPARM s 3f YESOUT ♦ SUBHST 



FILSEQ 

000150 

c 



o o 


FiLStO 

000153 


2^0 

REntHH FYES 



F ILSEQ 

000166 

c 



»t 3 O 

. 

FiLStO 

0001 6,7 



READ (FYLS) NAKEd) f,NAHE(2) fICASEF 

oh . 


FILSEQ 

000163 

c 





FILSEO 

000159 

c 


SAVE HtAUtR INFO 



F'lLStO 

oooi7o 

c 





F iLSr.Q 

000171 


250 

HuEf.Fd) = NA.-.Ed) 



K ILStO 

n00172 



FILE..--(2 ; = namE( 2) 

^ o 


FILSEQ 

000173 



KASE = ICASEF 



F TLSf 0 

000)70 

c 





F ILStO 

000175 

c 


REAn SLiUuSI hEaULR RECORD . , 

*S TO 


F ILSLO 

roni7b 

c 





FltStC 

''10 177 



RFoTun FSUi! 



fused 

0;.oi73 

c 


- 



F ILSt D 


I' 


1 € 


. o: 


■* c 


i t 


<> 


: 
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ll 

000179 



reap (FSU 8 ) NAME(UtNAMF( 2 )*ICASEFflMXSEG 

y ' 

oooiao 

C 




0 u 0 1 a 1 



KXSEG = IMXSEO 


ocniga 



(.'.■•Rns = ■•!y 6 EQ+l 2 . , 

> 

0 0 s L r. 3 

• c 

♦ M 

IFST FoP catch ok RE(JLILS 1 F 0 FILE CASE NUhBERS 


0 ij 0 1 » a 

c 




OOOLSS 



IF (iCASINCJPARH) .EQ.IC aSE) GO TO 27 Q 


000166 

c 




oonilAF . 

c 

♦ 7 » 

ERPnH - NO '‘ATCH 


O 0 Ol:RB 

c 



r 

0 0 'UR 9 



lERP = 


01 x 11:90 

■ .c- 




000191 : 



CHL PaGHPRE-O) .v^ . ... 

y' ■■ 

ounioE 



i.Rm {hOUT, 6200 ) JPABM,ICASIN(JPARM)»ICAS|tFILENMU)ifILENH( 2 ) 


000 roi , 

c 




00 n I'qO 

c 


IPST Ft)R haTCF on SUbHST FILE 

> 

OoOlSS 


270 

irdiCrSESH .HE. ICASiFFlCn TO 290 - . ’ .:i : ; 


OL'OlQo 



■ 6 * VCjc = 0 , ' i) 


OLOVOI 



GO TO 500 

) 

OGOlSiS 

c 

♦ ♦♦ 

ERHGk - NP HaICH 


OuRloQ 

c 




or'ijoo 


280 

IF CIErR.FU.O) call PAOHL)R(O) 

) 

Oli'id'i 1 

c 




oooEca 



ILRR = JPARH 

F ... 

OOfidfi 



CALL PaGHPkLoI 


0 0 0 H ’ ‘1 



AHITL(KOuTt 6200 )JPARM» ICSE 8 H» ICASEF*NAME( 1 ) »NAME( 2 ) 


OO 0 r;*''S 

c 





c 

♦ *» 

hF,ItiR.X 


non?'' 7 

c 



1 

0 (1 0 E '' s 



GLl TO 590 

1 

oon ^'*9 

c 



> 

OOCEtO 

c 

♦ »» 

REAP Pf;T.a 1 L RECpROCS) 


000211 

c 




r.yO^IE 


300 

GO Tu ( 3 lOf 360 f 6 COf 330 ) . RPTYPE 



u 




0 u 0 2 1 a 

c 

♦ ♦♦ 

RPfypE e i» sUbHsr file 


00021 b 

c 



> 

0 00216 


310 

READ CfSOM) cnoflfRFGNltZnrJFltSTHTAl» 58 STAl»INEO 

[ • 

0 ( 021 / 



», (.NUSti»(I) .'l 3 l fliPROS) 


000219 

c 



> 

0 0 0 2 1 9 

c 


TESTLFClP Fr.O-OF-riLr HaRRER _ . . 


000220 

c 



L ^ 

00 O 221 



IF (CC'UM.NE.lZZZZ) GO TU 320 

i 

000222 

c 




nQ 02?3 

c 

*.♦* 

tND-EiF-FIl.E 


fu, 02 ? 9 - 

c 


' • ■; , 

P 

01 ; 02 25 



■IH ■ c 

y. ■■■■■■ 

1' . 

0 00 2 2 0:2 



>GO,"T 6 :''SO' 0 -’“:“- , 


00 02?7 

c 




00 0229 

c 

r-y* 

nPVf! PfTAIL VALUES TO FILBUF 

1 

000229 

c 




000230 


320 

ICMaY = COUn! 


a'X!2ii 



iRt r,,i = (•TGQl 


0 CO 232 



IZO'iL = ZHNEi 

i ^ 

0^0233 



iSTR lA = SU'TAl 

> 

oC('230 

c 




0 0 (12 ,3 b 



A 9 1 G e I 1 F G 


000236 



IGP'M = i.P5tL;Ci-lKSr.t+l) 

b 

01023 7 

c 


r.i'vlKl MlSl PI FhPM PERCENT TO FRACTION 


nuo2 '-U 



= y.SF G(.' XSF()f2) *0.01 



FILSEO 

filseg 

FILSEO 

KPDF 

FiLSfcQ 

FILSEQ 

FILSEQ 

F ILSEO 

FILSEO 

FiLSEvO 

FlLSCO 

FILSEO 

FILSEO 

FILSEO 

FIuSEQ 

FILSEO 

KOL-} 

filseq 

FILSEO 

PlLSEO 

FILSEO 

FiLSfcO 

FlLStO 

FILSEO 

FILSEQ 

MCUi 

F ILSEO 

FILSfO 

F ILSEO 

F ILSEO 

FILSEO 

F ILSE'O 

FIuseO 
FILSEO 
FILSEO 
FILSEQ 
FILSEQ 
FILSEO 
FUSbO 
FILSEO 
FU SEO 
FILSEO 
FILSEO 
FILSEO 
FILSEO 
FILSEO 
FiLSfcO 

filSeo 

FILSEO 
FILSEO 
F ILSEO 
FILSEO 
ULSi 0 
FILSEO 
FILSEO 

filseq 

FILSEO 

FILSEO 

HPLVF^ 

E.nDF.^ 


: V 
' c 

:.r 

; c 

i , , : 

j , • 

• C 

.! 

i ^ 

1 

I 

! <■— 





I L 

! 

t 

! 

I 

1-^ 

1 

L 
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P00.J3'? 

0 0 02:^0 
nonaol 
n 0 0 2 ' 1 2 

0002<.3 

0 1/ 0 a u 4 
nooa^b 
norp'ib 
fioca'i? 

0 0 C 2 1 '.b 
ni)i'i249 

oooa^o 

nOiiaSl 

0002'''2 

nuoa'^i 

(1C0254 
Oirvjbb 
0 0 <1 2 b b 

nopabB 

norabv 

popabo 

OUO^bl 

noP2>i2 

00'l2'‘3 

nCPab4 

Ouna'-b 

f'vni-hb 
nU02f-7 
no 0260 
oooabv 
000270 

000271 

000272 

OuC27i 

000274 

00027b 

00C<27b 

000277 

000275 

000279 

000220 

0002"! 

000202 

no02Pi 

0C0tP4 

oco2Pb 

00020O 

ooofcp / 

0G02PJi 
ooosr 9 
0 cog 9 0 

000291 

0002^^2 

000243 

Pt Cic’9 4 

0Co,.-9b 

ol>f>29b 

rf’iV'l/ 

otoa'ic) 


COMVKHT SUnstRATA LAND ARfcA FROM RM»*2 jO HECTARES 
P-3EA = XSFG(hXStU+3)*100.0 

CUt.VtHT TRUE Rt FROh PfcHCt'NT TO FRACTION 
XTPV) = ySFG('lXSE(.:*4j ♦n.Ol 


N = lir'stUCNXSFGtb'T ^ 
NA = HoStGCPxScG+6) - 
XHTPrt a XSEGC'-iXSEG+r) 
XCV? = XbFGd'.XSEG+lO) 


GO TO SOO 


««« KPTYPE = u« ACQUIS file 


330 READ (FACO) COU'IV f RE0,‘J7»Z0NE7*STRTA7f SBSTA.7tSE6MT7 
$, i ( (l^INDOiaf 1) ♦ J=1»2S) f 1=1 t4) fITOTL 


TEST FoP e.Mt)-OF-P'!LE MARKER 


IF (CO||M7.nE.UZ2Z) go TO 3«0 


♦ Ef'0-OF-FILE 


TH a -i’- 
G.0 -TU 50 (i 


move detail values to FILBUF 


300 ibiTRY 3 rOUN? 
jPtGM s RECmNT 
iZtl’cE 5 Z'JP'FT 
ISTRIA = SIRTA7 
ISdPTA = SbSTAT 


Si 


LO 3b0 I r 1,4 
350 KOUFCIJ = lor-GOdfl) 


njS 

it 


GO TO 300 


♦ RPTYPf = ?. 




3b0 IF (JPaPM.EO.3) go TO 450 


IF (match. EO.n GO TO 390 


READ (fSUF) cOU*;ifREGM.ZONEl,STRTAl,SbSTAl»INEG 
=, (KOSEG(I) ,Irl,NWRDS) 


*»♦ TEST FoP END-OF-HLE marxER 


IF (CriiNl.nE.IZ'/ZZ) GO TO 370 


14 a -1 
GO TO 500 


370 IF (.■iATCH.EQ.O) go to 3P0 


KATCn a 0 


IFUi E(,i. - ReGr1)3O0*AOOiB<)0 


m 



5 

5 

r 

P 

i; 

I 

p 

b 

b 



oonsflv 


800 

1F(T70nE - ZOMEl)360tfllOfP60 

h 002 

ruospo 


810 

iPdSTRTA - STRTAn38o»820»860 

M 0 D 2 

Oun:jrvl 


PRO 

IP(I3f‘STA - SBSTAl)380f 830,860 

HCU 2 

ouPin^ 


830 

i'Arrri =1 . . 

MP>U 2 

0CP3''3 



GO TO 3 PU . 

MOOR 

OOPiliU 


860 

match = -1 

M 0 U 2 

nooiob 



GO TO 360 

moor 

0003^6 

C 



FILSEO 

POPS''/ 

c 


HOVE SLiPhsT values To FILBUF 

filseo 

00P3PH 

c 



E IL.SFQ 

PI)(>3P9 


350 

icsTay = couNi 

kil.seg 

oopkio 



IPt'i;.- = REONl 

HLSE'3 

OOP 31 1 



IZUl'.f e 70'>:El 

FILSE'.I 

oopjia 



IS16TA = STJTAl 

FILSEO 

000313 



ISUStA = Sb.'lTAl 

FILSEO 

000314 

c 


, . ■ 

FILSEO 

nOP;513 



HSEG = I4t!G 

F ILSF.J 

0 0 fl 3 1 6 

c 


CONvPriT .substrata LAMO AREA FROM TO HECTARES 

RGUFR 

PU0317 



AREA s XSFGOiXSF.Gt3)F10n.O • — 

HC'UFE 

000310 

c 


COMVFHT TEUe P9 FKnil PERCENT TO FRACTION 

HCl)F2 

000319 



XTps t XSEG(mXSFG+^)»o.01 

hP-CF2 

P003?0 



N = MOSI.G(>ix.SEG+S) u 

FILSEO 

00P321 



NA = M0.5EG("XStG*<,) 

ftlslo 

000372 

c 



FILSEO 

0o03?3 



IF (MATCH. EC. 1) GO TO SOO 

FIlSEO 

ooospa 

c 



FILSEO 

noP3?'j 


300 

IF (JPaRH.EO.7) go TO 420 

f ILPEO 

ooo3?o 

c 



FILSEO 

00''3?7 

c 

♦ ** 

JPARM -1, SFC'ENT TRUTH HLE (SEGTRU) ♦ SUBHST 

FILSEO 

ooc3?u 

c 



FILSEO 

OU0379 : 


400 

REAO (fSEG) C0UM2fRfct.M2,Z0NE2*STHTA2fSUSTA2.SE6MT2 

FILSEO 

nOP|330 . 


i 

<, <DuME2(I),islf8)tTPw2-,TPH2 

FILSE'l 

nooi'm 

c 


, 

.• FIl.SF-0 

P00332 

c 


TEST For EOF ■ . 

KIL.4E0 

000333 

c 



FlLSLO 

0 0 0,3 34 



IF (Cpl,'f'2.NE.I2Z7Z) GO TO 40b 

F ILSEQ 

non33b 

c 



FILSEO 

000336 



IH = -1 

FILSEO 

'’0C,3'*7 



GO TU SOU 

FILSEO 

0 Co 33a 

c 



FILSEO 

000339 


unS 

C IhEGM - FEG.4'2 ) 409,404f400 

E.r-LU^R 

PO034O 


404 

IF ( IZU.N'E - ZO'it.2 ) 409,40o»400 

HCGF2 

000341 


406 

IF (IST.RTA - STRTA2) 4o9,407f400 

MOOFH 

060342 


407 

IF (ISL35TA - SljSTAR) 409,906.400 

MCDF2 

000343 


408 

MATCH =1 

Rr0F2 

0 0 .t i ij u 



UO TO ulU 

hPDFR 

OOP 5 0‘j 


409 

cnNTrojf 

M.raFa 

0 0 0 3 lib 

c 



FILSEO 

000347 



ifcmatch .eq. omatch =-l 

.mud 2 • 

000346 



lF(t'AtcH .EQ. IJHATCH = -2 

moor 

000349 

c 



FIlSEO 

OOP ISO 



IR(.G ; = HFGM2 

FILSEO 

OOPl'-l 



I7Ut'E z Zf'3E2 

FILSEO 

0003' 2 



ISTRTA = SrmA2 

FILSEO 

000343 



I-SHSTA = SH.STA2 

FILSEO 

000344 

c 



F ILSLO 

OO'iis'j 

c 


CO'VFKT TRUE p.i FROM PERCENT TO FRACTION 

«0uF2 

PCOSSti 


410 

XTP.U z TP.-.7F0.01 

FPDF2 

01)0347 



IFC'rtTC^ .EC'. -nOU TO 360 

HOUR 

0 V 1 3 '• tl 

c 


■ 

F'lLShO 





f 

j 

i I 

j • 

j 


< 

C. 
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GD to SOO 

»♦» JPaR(^ s 2 t CA"IS output file (CAMSf) ♦ SUBHST 

/)20 REAP (FCAP) COU'Ji,RFGN'3.ZO,NEi*STRTA3f SBST A3»S€GNT3' 
' TPri3t((lWIN(JfI),J=lf3)tlsifa) 

IF CeoijU3.NE.IZZI7) GO TO R23 


IM = -1 

GO TO 500 

«25 IF C IRFGW - REGU3 ) A2<»» «24»A2o 
U?*! IF ( IzOnF - ZO'^'t.3 ) «2P, <42.6, 420 
il?6 IF (1 St‘’TA - STK’T/>3) «29,a27,A20 

4?7 IF (IRo-^Ta - SBSTA3) u?9»A2otA20 
« 2 Q match = 1 i 
GO TU 030 

029 cPMU ufc 


IF (HATCH. tO, 0 ) HATCH s -1 
IF (iIAtCH.EO. 1 ) hatch = -2 


%% 

V. c:> 


IPEGN c KF.Gf :3 
IZU»-t = Zn'-F-3 
IR 1 PIA = STHTA 3 
ISDSTA = SfjSTA 3 

rOs'vERT TPUt PW CROH PEHCtNT TO FRACTION 
030 XTPWl = TP.. 3 + 0.01 

00 035 I = 1.0 

pRUAirin s I'UMi.i) 

cctwFGT FaTi.''ATt;> r.v moH percent tu fraction 

i»35 XEP'Kn = E«INb')(2*l)*0.0» 

IF (HATCH. ECl.-l) GO TO- 360 
GO TU 'jOg 

*♦* JPAR.'I = 3 . YfcS OUTPlJl FTLF (YESOUT) + SUBHST 

OOO IF (HATCH.EU.I) go to 070 

READ (fYLS) CDU'i 4 .REGM 0 ,Z 0 NE 0 fSTHTAfl.YSTH 
*r ((IYSPMT(J.l)»J=lf 3 )»I=l» 6 ) 

IF (COUNO.NE.IZZZZ) GO TO 050 

IH 3 -1 

(40 TO 500 

o 50 IF (hatch. ED. 0 ) GO T( OSU 

match =0 


IFCIRFgN - PEG:iO)060»o00.9o0 
900 IF ( TZ0.'>F - ZU-4E0 ) OAO. 910.900 
910 IF( T'JTi.'Ta - SThTa 0)‘IO0»9<’0»9«0 
920 I ATCrt =1 - 


KJ 



FILSEO 

FILSEO 

filseo 
FTL5E0 
FILSEO 
F TLSEO 
FILSEO 
FILSCO 
riLStU 
FILSEO 
FILSEO 
filseq 

MCDF2 

H 0 UF 2 

NOUFa 

HC.0F2 

HCUF2 

H0UF2 

F;ruF2 

FILSEO 

FILSEO 

HPUF . 

hC'-DF 

FILSEO 

FILSEO 

FlLStO 

FILSEO 

FILSEO 

FILSEO 

HPUF2 

HPDF 2 

FILSEO 

FTl RFO 

FILSEO 

Mtl'Ft' 

K 00 F 2 

FILSEO 

HOOF 

FlLShO 

FILSEO 

FILSEO 

FILSLO 

FILSEO 

FILSEO 

FILSEO 

FILSEO 

FiLStO 

FILSEQ 

FILSEO 

FILSEO 

F ILSE.O 

FILSEO 

F JLSfN 

FILSEO 

FUSEO 

FILSEO 

HCn? 

HPuF2 

HPU? 

hCu2 




i C- 
1 


I 
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- 

\ 

ocoai9 


GO TO 460 . ■ r ! ■ 


H0D2 

oon«?o 


940 MATCH = -1 - 


HCD2 

000U?1 


GO TU 4«0 • ■ ■ 


KC02 

OOOUi?2 


C 


f tlseo 

C 0 0 «? i 


•C ♦♦♦ MOVE YtS'JUT VALUES TO FTLBUF 


6 JL.Ffc Q 

000<!2‘4 


C _ 


FILSEO 

0004?b 


460 ICNTKY s C0UH4 


FILSEO 

puc; j2d 


IKtr.ll = REGN4 


FILSEO 

00 0,1* ?r 


1706'E = 7UH64 


filseo 

0 0 C 1) ? G 


16TPTA = STPTA4 


FiLStO 

I) L’ f k? 9 


C 


FTL.'iEG 

000430 


XTYLD = YSTR . 


ulseg 

000431 : 


on 463 I = 1*6 


F1LSE9 

nuo4?d 


FFUATE(I) = lYSPNT(ltl) 


ulseq 

0U0u33 


465 XHYLO(i) = YSP"!T(2fI) 


filseo 

POOyJ'J 


C 


FILFEO 

0U003S 


IF (HATCH. to. 1) GO TO 500 


F TLFF.0 

000036 


C 


FIL'^EO 

o(joo 37 


470 bead (fSUB) COUHl,,K(GHl,ZOHEltSTRTAl,SbSTAl.tINEG 


FILsSEO 

0004^8 


♦, (MDSEG(I),1=1»NWKD5) 


filseg 

nooc39 


c 


FILSEO 

00 04 00 


IF (COUNI.NE.IZZZZ) GO TO 4«0 


filseu 

nooaui 


C i. - 


FILSE'T 

000442 


IH = 61 


FILSLQ 

P0P4i’5 


GO 70 50(T 


F IL5EQ 

00 0 4 114 


C 


FILSEO 

OOoaiJb 


430 IF ( IrEGH - REGHl ) 488f482t470 . ’ 


M0UF2 

000406 


462 IF C I 70 .vf - ZOHEl ) 468t484f470 


HO UP 2 

00 04 4 7 


4?4 IF fISTPTA - STRTAl) 488»486t470 


M0UF2 

POOaiiB 


486 riMCli =1 


HGOFR 

00 0 4 1! 9 


CO TU 490 - - - - 


HOC'Ep 

PCPO^O 


488 cn'.TI^.uE ' ■ 


M00F2 

OOi'liSl 


C 


filseg 

00.'?4'^2 


IFC'aTcH .EO, 0)liATCh s-1 


t-.0u2 

0 1; T 4 4 3 


IFC'aTcH .EQ. DMATCH =-2 


POP2 

00Q«S4. 


c : . 


FILSEO 

000653 


IREGh s keg 11 


FILSEO 

00O4S6 


1ZU6L = ZO.vEl • , 


fil-seo 

000457 


ISTRIA = STKTAl ’ 


filsfo 

OOOif'H' 


C 


FILSEO 

0UO659 


. C CUEvEKT SuriSTKATA LANO area from 8M»72 to hectares 


M0pF2 

0 U 0 4 6 0 


490 area = XSFG(MX3EG+3)eiOQ.O 


HOuFa 

000661 


C COf.VEHT true RH FROM PERCENT TO FRACTION 


Hn0F2 

00i):ll62 


XTPW = X3rG(KXSEG+4)»0.0l 


HnuF2 

00 0 6^,3 


N = 6u.stn(Hx.5Er,+‘j) 


FILSEO 

0UO'46« 


nA = NU5En(«X5EG+6) 


FILSEO 

0 00:663 . 


G 


FlLStO 

000466 


ifc'iatch ♦eg. -nr.u to 440 


MOD? 

000467 


c 


FILSEO 

000463 


C *♦* HETOKIJ 


FILSEO 

000469 


c 


FILSEO 

0 00':4 70, 


5,00 RETUkN 


FILSEO 

00 04 7 1 


c 


FILSEO 

000472 


c 


FILSEO 

000473 


c 


FILSEO 

000u74 


600 COi.TlMuE 


FILSEO 

OO 7«73 


■c^ ■ ' ■■ ■ 


FILSEO 

00 14 76 


c 


F ILSEO 

0 0 7 / 


c 


F T LU O 

0 0 I,, 7.0 


GO TO 'jOO ■ 


FILSEO 



c 


f: 


(» 


i c 



, c 

1 V 

; w 
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OOOnVf 
oooijfiy 
0 0 0 '1 a 1 
OO'iuaa 
0 0 0 4 T 5 
O004ft4 
OOOiipS 
0 0 n 4 B6 

ouv’'UP J 
roPMptt 
0004^9 


C MON-rtATCH ON CASE NUMBER FOR FS'JB (RFTYPEsl) OR FACO (RPTYPEsR) 

C . , , ■ ; ■ 

700 SYUP 

C ■ ' 

C ERKOR mESS^GE3 
C 

6200 FORHaT (SnM ICASlN(I) OOtS NOT MATCH CASE NUMBER ON FILE./ 

♦ 12 H ICASlN(.Ilt2r.)a*14f 1 «HFIlE CASE NO. = fl«t 

♦ ' n» FILE '.’AME,2 a 4/1H /,lX»lb(&H**»***)) 

EMO :i . 


FlLSEO 

filseo 

FILSEO 

filseq 

FIlSEO 

filseo 

mlseq 

filseo 

FlLSfO 

filseo 

FlLStO 


I <•- 


I 

: e 

* h 

I 

' r*“ 



i c 
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* Uw FHEQACtl»7605U. ♦ I 


oooonl 


SUBROl'Tl'tF. FRFOAC 

freoac 

oooooa 

c 


FREQ AC 

OOCOOi 

- c 

THIS RI.HITIr;F PKOUl'CFS THE FREQUENCY OF SaMRLE SEGMENT ACQUISITIONS 

freoac 

00nur« 

c 

report M 

freoac 

OOOO'Ob 

c 


freoac 

OOOo:A6 

c 


freoac 

OOnc/r.7 

c 

COHHON storage 

FRtOAC 


c 

, • 

FFEOaC 

0 0''{l('9 


COMHCN /FTlPUF/ KlLFNM(2)tlCNTRY,lREGN»lZ0NE»lSTRTA 

FILPuF 

nuofiia 


♦ ISriSTA,lCASE»liXSEG 

MO OF 

OUOOll 


♦ f K0UFU2SJ 

modf 

OOfiOU 

c 


FIlRuF 

oei’ot i 


01 MENS I ON KWifJ(R) fiRlCnnl'Of lRROAT(m)fPROATE(6)tXEPR(«)»XEVLO(6) 

fluRUF 

oocai n 


♦f . ApVftL(2) 

F IlOUF 

nuooiii 


♦ t ^ ^CtKROOO) - 

mh-f 

00nul6 

c 

. 

HlRUF 

Oyo<M7 


KEAI. HCKFp»r,CtRR 

MO IF 

OOOOlB 


integfk ftlemh,rroate 

FILPuF 

00^019 

c 


filpuf 

OtryiPO. 


EOUIVALFivCt (KbliF( l) fNSFGfNT.KhiNd)) 

F'ILPUF 

ncoiiPl 


♦ , (?) ,lGP'-0,NSl«ATfNhEGS) . 

hoof 

00OC>?2 


*f (KHliF (3) .XHP •',‘iZTuT) • 

rooF 

OOOOP3 


• f (rtPuFC*'') *aREA.NbW) 

HOOF 



»i (KAuF(S) ,XTP'.'.,'''PD) 

MOOT 

oijn^jPS 


♦ » »»’»I“IO„0(1)) 

MC'UF 

0003?6 


♦ * (^l;u^■(.7) niA) 

MO OF 

oonc?7 


♦ f (KPiiFce.) f xhI°a) 

tiOOF 

{lCliV()7i). 


»i ('U i,F.(9)tXC'/?) 

HOOF 

ncouPV 


#f (KrtijFillO) ,X1 PnI,IPH0AT(1)) 

FODF 

ocoo'AO 


♦ * (Koi.Fcn) tPH^ATEd)) 

MODF 

OOOf’U 


• * fMM.f (1 7) .XhPw( 1 ) ) • . . . 

MfiOF 

OOOC-'P. 


♦ i (Nf...F l?n .XtYLO(’)) 

l-^OOF 

PO-O'i 


♦ t ( r.t'L 1 1 ? « ) T ‘‘ 1' ■/ /i), ( 1 ) * MCKEF) 

h(’UF 

oy('vi''« 


♦ f (KfHjFtPbJf'^CEKHd)) 

MODF 

OUOO J5 


*f (hH,jFC27) tXTYLO) . . 

HOOF 

OU0036 

c 


freoaC 

no'*t)3/ 


COMiUiN /PKnTiD/ C'lTRYiHFtilUNtZONEtSTHATAtlCASEN 

PR.nTID 

nO(1(;3M 


♦ » FUEnOtFILnAI-KZ) 

PRnTID 

OOOU3V 


♦ , ^ ITuTYPfMA'iFMT 

PRNTin 

ooi'|ji;u 

c 


rrntid 

OUOOUl 


INTEGER CnTRY«REGIUN*ZOmE. strata, F lLENOtFILNAM 

MODF 

OOOOU2 

c 

1 . ■ • 

FREOAC 

nOrtp/ij 


COMMUN /UWC^'HN/ NSLf.S.RIUC,^»(t6i f - ’ 

ItMCMliN 

00 0 1)9 4 

c 


FREOaC 

0 u I'l 0 'J ■j 

c 

LOCAL storage 

freoac 

nuo&Ob; 

c 


FREOAC 

000p07 


DlMEWSlON KNT(3)»KNTai0(l6,3)»K;)I0Zd4)tKBI0Rd6)» KBlOCdO) 

freoac 

oonbne 

c 

. 

FREOaC 

OOn;o«9 

c 

S'JiJCKTpT = 1 ZONE LEvEl. 

FPEOaC 

OOOfjSO 

c 

Si'nCRTpT = 2 REGION' LEVEL 

FREOaC 


c 

SUHCinpT = 3 COUNTRY LfVEL 

FI-EOaC 

007C-2 

c 

, 

FKEOaC 

ouoio'^i 


EOoUalF.nCE 

FFLOAC 

0!'f>oS4, 


♦ (r.f.l«IOCt,n,NOIOZCm» (AN'TCUtXNTZ) 

FREOAC 



♦ , (''.''Tnirid,?),NHiOncn)f (nn7(2)»k.nTH) 

freoac 



*, CA'T!iia(l,3),N0IQC(l)), (a.NTC3),KNTC) 

freoac 


c 


FFEOaC 

oo'':o''is 

c 


freoac 


i 

I 

. y • 


! 

I 



! 

! 

i 

I 

. C 

, • 

; c 


1 



i 


t 

! 

I • 

! C 

i 
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Vifp 


.♦ V 








If. 


000059 



IH = 1 


000060 



IFIRST =0 


OOOC61 . 

C 




OOC062 ' 



DO 20 I = lf3 


oo.ro'AJ 



K'iT(I) = n 


000060 



Un 20 j s 1,16 


00 0 0!6 5 


20 

KPTRlOlJfl) = 0 


QODOiOb 

c 




0000*7 

c 


cn MFADtP RECORD 


0 00!'*' 6 

c 




Out 06 9 



CALL FllSEUCIH) 


000070 

c 




0 00 0,71 



ICAStI'; = ICASF 


00OC.72 



flLF'At'd) = FILEMP(I) 


OOOtjTi 



FILPA6(2) = FILEPM12) 


0000 7 a 

c 




O0nL-7‘j 

c 


GET UtTAlL PECCIRD 


OU0076 

c 




000077 



I H s 0 


nooo6b 

c 




000079 


50 

CALL FllSEO(lH) 


0 0O0P.0 



IP (IH.LT.O) go to 200 


000021 

c 




oeoy»t 



IF (IFIRST. GT.O) GO TO 100 

OOOOFi 

c 




OootiRa 

, 


CNTPt s ICPjrPY 


oooijwb : 



HEGIUP s fPFlGri 


000006 



ZCgE = IzO'.E 


(lU0(jH7 



iFiPST s 1 : 


OOnoPO': 

t 




OoOOPV P 



on TU l2o 


noouoo 

c 




O0O091 ■ 

C 


.trST F.tiR CHANGE IN 1,0. 

AREA 

000002 

c 




OUOOOi , 


lOO 

'IF CIzOfJE.GT.zOPt) GO TO 

200 

oyioop 



IF (lRt^'‘'‘iGT.HEGIOM) GO 

TO 200 

0U0CP5 

C 




C00&96 


1?0 

K = 0 


n00o07 



KI = 0 


pOnooR 



KMTZ = K'STZ+1 


C0O009 



liD Tin 1 = 1,0 


00 0 loo 



IF (nuif-'ai.ta.n) GO TO 

130 

00 01 01 



K = K+1 


0001O2 



r.I = Ki+i 


non ini 


130 

continue ■ 


OOniOi* 

c 




OOnir.S 



IF (K.,\F.nrGO TO lUO 


OOOIC6 

c 




OOnlo/ 

c 

*♦* 

ZERO acquisitions 


ooniOft 

C 




n 0 0 i 0 y 



Ki'IOZd) = K13ICZ(1)F1 


0 0 '' 1 1 0 



GO Tg so 


n 0 ') M 1 

c 




non 11 2 


1«0 

GO TO (150,160,160,180), 

K 

n 0 0 1 1 3 

c 




oonini 


150 

KEinz(Kltl) = K.!ilOZ(KI + UFl 

0 0 '1 n 'j 



GO TU SO i 


0 0 0 ,11 6 

c 




nil'! 17 


160 

IF (PM'Un.FQ.O) (.ill TU 

17U 

I'O-llH 

c 





% 




^'5p 



FRtOAC 
FPfcfJAC 
FPECaC 
^PtnAC 
PH[ <3aC 
FPE'JAC 
f RtQAC 
FPhfiAC 
FPETaC 
FPtf^AC 
Ff<h':AC 
FPtiUC 
FPtOAC 
FRLOaC 
FHtRAC 
FKtRAC 

fpltaC 

FPt RAC 

FP'tOAC 

FPtOAC 

FPtOAC 

FPtOAC 

FPtOAC 

FPtOAC 

FPECaC 

fPtOAC 

FFhOAC 

F'PfcOAC 

I'f-Ut 

FPtOAC 

FRtCAC 

FPtOAC 

fpeoac 

FP£0AC 

FPtOAC 

FPhUAC 

FPtOAC 

FPtOAC 

FPtOAC 

FPtOAC 

FPtOAC 

FPEOaC 

freoac 

FPEOAC 
FPtOAC 
FPtOAC 
FPtOAC 
FPEOAC 
FPtOAC 
FPtOAC 
FPtOAC 
F°tOAC 
FP’tOAC 
FPtOAC 
FPEOaC 
F Ptf.'AC 
FPtOAC 
FPtOAC 

I P| oac 
F l'tOAC 
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ooniiv 




KR1CZ(kI+ 3) a KBKlZ(KH-3) + l 

i! 

000120 




GO TO 50 


0001?! 


c 




000l?2 



170 

KfUOZCKl+O) = K0IO2(Kl+fl)+l * 


000123 




GO TO 50 > 


0 0 0 1 ? « 


c 




000125 



leo 

KRinz(Kl+6) = K3I0z(Klt6)+l 


000126 




GO TO 50 


M0o0l?7 


c 




oo/u 


c 


CHA6GE IN 1.0. AREA 

!l 

600 !?R . 


c 




000 130 



200 

RO 210 1 = 1,16 


0'J('131 




EIOZ = KOIOZU) 

> 

000132 




TZ =1^^TZ 


000 )33 




HI0C!R(I) = (310Z/TZ)iflOO. 

■ 

0 U' 1 3 0 



210 

GOKTIMjE • 

) 

onni'ln), 


c 


; ■ ‘ 


0 0 0 1 3 f, 




MSEG6 = KNTZ ij _ij 


0 0 0 I 3 7 


c 



!>'■ : 

OOo 1 


C 


CAbt-REPORT HITH IT0TYP=1 FOR ZONE PRINT 


000139 


C 




000 )00 




ijTuTYP =1 


0 0 0 1 il 1 




call RePPT3 


OOO) ;2 


C 



r 

OOOlt'3 


c 

♦ ♦♦ 

SAVF ZONE* values in RFOION ACCUMULATORS 


000 )im 


c 


1 i ■ 


ooo)4'j 




1)0 220 II =~TT16 


0 00 ) /1 6 




F«B10f^(I>i s KBUlR(I)+KalOZ(I) ' 

? 

000)47: 



220 

CONTiruF •; : ^ 


0 0 0 1 <i fl 


c 



, j 

000)49' 




kktr * kntk+kntz 


000150: 


c 



(■ 

;000)'ii 


c 


ZpRO .OUT ZONE values 

!■ : 

0 J 0 J 4c 


c 



>:■ 

0.0O)<,3 




KNlz s 0 5 

r ' 

000 15R 




UO 230 I S 1,J6 

• 

nonisb 



230 

KBIOZ(I) =0 

1 

000)46 


c 



1' 

00Oi'>7 




IF (IH.LT.g) GO TO 2«0 


000)56 


c 


— 


0 0 0 )59 




zone = IzChF 

f 

r , 

000)^0 




IF CIReGN.EU.REGION) go TO 120 

i ^ 

000)61 


c 



p 

000)62 



290 

00 250 I B 1,16 


000163 




HIUR = KbJUR(I) 

i ^ 

f 

000)69 




TR = KtiTH 

f 

000)65 




BlOC--.H(n = (fiinR/TRJmlOO. 

p. . 

tV' " 

000166 



250 

CURTII.'UE 

i 

0 0 0,167 


c 




000166 




NSEGS e kntr 

* 

000)69 


c 




060)70 


G 

»*♦ 

CALI, RiPURT WITH ITnTYPs2 FOR REGION PRINT 

i? 

00(171 


c 


r ~ ■ ' ' ' ' 


000)72 




itUTYF =2 

' ■ 

000)73 




call H:tPRT3 

'f 

o'n 1 7 9 


c 



j' 

000176 


c 


SAVE PEOlOiN VALUES IM COUNTRY ACCIJSULATORS 


000)76 


c 




000)77 




on 260 I 3 i,i6 • 

! 

0 6 0 ) 7 U 



260 

K'll'H.fi) 3 KuIlx.'CntMiluUd) 





FRE(!aC 

FREGAC 

FFtOAC 

FKtOAC 

FHERaC 

FHtOAC 

FHEQAC 

FRLGAC 

PwtrjAC 

Ff-LGAC 

FRtCiC 

FRtGAC 

MODI 

hPDi 

HHDt 

FRLOAC 

FfiFRAC 

f^egaC 

FF-tQAC 

FRt'UC 

FfifcQAC 

FREOAC 

FRLOAC 

FRtGAC 

FFhGAC 

FFEOaC 

FRtGAC 

FHEQaC 

ffegac 

f^eoaC 

FRtOAC 
f RtGAC 
FFLGaC 

fregac 

FREGaC 

ffepac 

fregac 

freqac 

FFtRAC 

FfeoaC 

FRE'UC 

freuac 

freoac 

fpeoac 

r.ODi 

NPOl 

Knpi 

FREQaC 

FREOAC 

freoac 

freoac 

FREOAC 

FREOAC 

fpeoac 

freoac 

M-EPAC 

freoac 

freoac 

FREOaC 

freoac 



» *« 

{ i. 



I 


I 
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■* 

000179 ■' 

► oooiao 

000 IP 1 
0001P2 

> 0Pf'lP5 
0U01P4 
0 0 0 J |R 5 
n 0 n 1 6 
nU''l:K7 
00'' rPO 
OOOliPO 
0001190: 
OOOl'Ol 

i 000192 

0001'9i 
000114 
i Oull9'j 

i :: 000116 

000 1.97 
). 000198 

000199 
000^00 
OOOt'Ol 
000202 
00C205 
000201) 

0 0 020 b 

0002O6 

): oor?'? 

000208 
1)00209 
00021 0 
000211 
OU0212 


c , ^ 

kmc s KNTC+kNTR 

c 

C ZERO CUT RtGION VAtUtS _ 

c ■ 

K<7R = 0 
DO 270 I = 1»16 
270 KBICHCI) = 0 r 
C 

IF (ilH.LT.O)' CQ TO 300 
C 

KEGIUN = IKHGN'! 

GO TO l2D 

C 

C fiOVE COUNTRY VALUES TO PRINT BUFFER 
C ' 

300 00 320 I = -1,16 
TC = krTC 
Bloc sKlvinCd) 

BTOC-lBcI) = (B10C/TC)*100. 

320 CONTINuF. 

c 

NStGS = hNTC 

C . 

C 9F» CALL RePGHT with IT0TYPs3 FOR COUNTRY 

C . • : 

IT'JTfP = 3 • 

CALL REPRT3 

C 

C RETUKM to driver program 

c' 

return . • ■ 

c 

END 




1 

ffegac 

fpegac 

frebac 

FRE'TAC 

FRE 9 AC 

ereoac 

FPECaC 

fpegac 

freoac 

freoac 

FFERaC 

FKENAC 

fpedac 

frecac 

FREOaC 

FFKCAC 

FFEGaC 

NODI 

Mnul 

hCDl 

fpeoac 

FPEOaC 

freoac 

fpecac 

FPEDaC 

fpegac 

FPEGaC 

FREOAC 

FREOAC 

frecac 

fpeqac 

fpeoac 

freoac 

fredac 
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t 
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» t-C-Y FZULUtl,7605U»”59l'(2 » 1 ' 

I 


ooooni 


SUtJHUUTlLT FZUlUCIDAT,I,OUT) • 

H0D3 

oono-na 

c 

+ ♦Jr?»i'»!|t+»j(t*4.*****»**»*.ii*»**»**************7******'MF7uLU 

n 0 0 0 oi 

c 


FZULU: 

ooo'joa 

c 

ROUTltiE FZUlU . 

FZULU 

oonoGS 

c 

• 1 

F7ULU 

oonono 

c 

PURPOSE TO COnVERT"ZOLO WT£-tO year MOkTM AHO DAY 

-F-?ULU ~ 

ooooa/ 

c 


F7ULU 

OtMjEjrs 

t 

linkage call F70LU ( IOaTE f lOUT ) 

K7ULU 

0 0 fl 0 <' 9 

c 

IC-ATbf BT'-AHT INTEGER ZULU DATE 

FZULU 

OJf'nio 

c 

lOUTf Calender DAlEtoiriENSiow 5 for imteger 

FZULU 

oonoil 

c 

yeari ronth ano day respectively 

FZULU 

nu G 0 1 iJ 

■ c 

U '1 

FZULU 

000013 

c 

ROUTINES called NONE 

F7ULU 

n u 0 0 1 '1 

c 

....... 

FZULU 

OUOOli 

c 

LOCAL variables; 

F7ULU 

n u 0 f; 1 6 

c 


FZULU 

000017 

c 

' _ IDAYS vector C0RIA1NIN6 NO, DAYS OF YEAR' ON 

FZULU 

ooooia 

c 

LAST DAY OF MONTHS 0 THROUGH 12 FOR N0RMALF7ULU 

000019 

c 

year FOLLOrtEO bY 13 HONT+iS- OF LEAP YEAR 

FZULU 

njcooo 

c 


FZULU 

nooQ^i 

c 

NLEAPf MO, OF LEAi' YEARS SINCE 1900 TO SPECIFIEO 

f '7UI U 

ouf o?a 

c 

DATE 

FZuLU 

oono;j3 

c 

NFLGt SUoSCRlPT INTO lOAVS VECTOR 

FZULU 

OOOOP4 

c 

STARTslt NOT LEAP YEAR 

FZULU 

0000?s 

c 

STARr=l«f LEAP YEAR 

F7ULU 

0 0 0 Cl r 6 : 

c 

JDAY» JULIAN DAY OF YEAR ' 

FZuLU 

oonn?7 : 

c 

!• LOCAL USE 

FZuLU 

0OD0PU-: 

c 

COMMENTS NCiiF 

FZULU 

oooa?9 : 

C*»»*»**»*»»**»#t»f ♦r*#*?***^ Zulu - 

000030 


OIUEnSiOn muT (31 

FZULU 

00!)03l. 


dimension IOaYSCJA) 


000032 


DAT A To A YS/0,3i ,1,9,90,120 1 1 51 1 181 »212.24i,273f309t33«»36Sf 

FZULUj 

000033 


1 0, 31, 60t91, 121. 152, 182, 213»24«t27«, 305*355, ‘66/ 

FZULU 

000039 


lOATE = lOAT ♦ l(j?b3 ■' 

KOD3 

00no3b' 


00 5 1=1,3 

FZULU 

000(576 


inuT(T) =0 , 

FZULU 

n00u37 


5 continue 

FZUI U 

OOOO30 

c 

FIN'D NO. leap years since 1900 AND GET CURRENT YEAR 

F7ULU 

000039 


nLE Ap= (1096+ IDA rE)/lU6l 

FZULU 

OOOQUO 


lOUT(l) = (ICATE -j,LEaP1/.365 


000001 

c 

see if CURRENT yeaR isleap year-set nflgoi or U 

FZULU 

000G02 


I = iouT(n/a 


000003 


1 = 1*9 

FZULU 

0 0 1) 0 '1 a 


MRLG=1 

FZULU 

0Cn,)(:b 


IFCIOUTd) -1)10*10,20 


OOnoob 

10 

NFLO=la 

FZULU 

000007 

c 

JULIAN DAY - ZULU OAY-NO rEARS*365-N0,LEAP YEARS 

FZULU 

OUnoii8 


20 JOAr=l0ATE-(l0UT»365)-NLEAP ♦ 1 

FZULU 

0 0 >^0^9 : 

c 

Ghi Day month from Table search 

FZULU 

nuoiysu 

c 


FZULU 

nuoosl 

30 

IFUUAY-lnAYSCNFLG))50f 50*a0 

FZULU 

outio^p 

«n 

inim?)=inuT(2) + l - 

F7ULU 

O0O0S3 


^,tLf;=^^l G+l_ 

F7ULU 

oorni,(( 


GOTM '30 : • 

FZULU 

OHOOS'j 

bO 


F7ULU 

0 0 0 0 9 b 


U'UT(3)=JDAY-llrAYS(NFLG) 

FZULU 

uO<'v S7 


k' 1 ilki 

F/Ul.U 

■lU'MiSO 


L'-'O 

FZULU 


' f 

i 

i ^ 


I 

! 

i f' 
I 


! t' 
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<» acf GENKNG,i,; 60511» 5^136 t 1 


000001 
0 00(10 2 
000005 
0uO0C« 

0 00 0 os: 

0 0 00 Ob 
O(j''.O07 
Ouf 1103 
n u 0 0 fi V 
ooduiu; 

oyoo|vi 
0000:12' 
00 r 0 1 i 

r :i 3 
ooooils 
fibOCtO 
OUObIt 7 
0l;001 B 
00001 . 
flOOOPi,' 
000021 
00CC22 
O0r.u23 

oncoi?^ 

ncoOiPb 
0l'0t)2B 
00 0 0.? 7 
occ.(i?a- 

C(/0 029 
(10003(0 
OoGO"^! 

0 0(^032 
O0O&3i 
000034 
nuoo3b 
0 0 0 0 3 fa 
000037 
roc 0 33 
n(;0050 
000040 
000041 
000042 
000043 
0faC044 

ngoouB 

000046 : 

000047 

000040 

n00(}49 
f'Clf'QSO , 
OOOObl 
000032 
0 0ny,3 
0 0 0(|')4 
00 oil S3 
no 0 036 
000037 

0(1 i'c'j'! 


SlibROUTlf'E SE'i'Rt cnCL)” 

THIS ftOliTlNE GlNEHaTES THE HIST03PA« RANGES FROM THE INTERVAL INPUT 


♦♦♦ COMMON storage 

CONMUN /range / START»INTVLl»BREAKl*INTVL2tBREAK2 
*f 1 N 1 VL 3 *ST 0 P 

REAL INTVLl,:HTVL2,iNTVL3 

COMMON /HSTOGM/ XMVAL»S'TD 0 EV,XMPSUM»S 0 PSUM 
f \RA'iGF,TRAfiG£(5UfNTUTL»KAhGES(52) 

♦ , . MlNV AL * “ aXV Al * 0 41 Pro 13 ) «nZRMG*REF 

REAL ; KINVALfMAXy AL i_ i 

IMTEGFR DATPRO 

OATA PnGIiIN /-ltOf'fa/» RNGMAX /1.0E6/ 

00 10 I = 1.52 

10 RAriG£S(I). = 0.0 

npamge = 0 
(jZKHG = 0 

»*♦ GEi'.E.^RATE Range VALUES 
■ K = 1 

IF (ICL.EO.O) RANGESIKJ = RNGMIN 
IF (ICftiF.O) K = () 

fll s (bPE.AM-STAHT)/1NTVLI 

D" 20 I = l.Nl 
K = K+i 

VALd = START+INTVH»(I-1) 

IF C'lZRMG.Mfc.O) GO TU 20 ^ Q, 

IF (VAlU.LT.O.) go TO 20 

HAMntS(K) = 0.0 & 

(-iZRlIG := K • ^ ^ 

K = K +1 

MKAmGF = NRAfJGt+1 ^ ^ 

20 ..RAMnbSCM) = VALD -O ^ 

.(RA'.'GE ~ MRA.nGc + NI G< ts?- 

IF (It.-TVL2.ME.0.) GO TO 30 

; ■ Uei 

KAMGtS(K+l) = HHEAaI ^ r* 

GP Tu 1 nu VS W 

30 M = (D‘'tAn?-BRF.AKn/INTVL2 

LiO 4 0 I n l*Nt • 

K = K + l 

VAL'i = FHEAM+lNTVL?Ta-l) 

IF (.iZh*^ G.,.F.n) GO TO 40 
IF f VA| li.l 1.0.) gO TU (|n 
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000059 
0 00 OA 0 

ouno^l 

00001^2 

Ol''0;63 

oor-uiou 

0000*S5 

OOnof-o 

0.00(1 iK7:, 

OC'iijb'tJ 

0 J .0 0 i> 9 

0 0.10170 

nooo^rr : 
0 0 00172 
ooooti 

OCioO'74 
000(.,75 
0 0 0 0-7 0 
O0O077 
OOOo70 
0UQ079 
Oi'OOOO 
oooor 1 
0000"2 
n 0 n y .H i 
00 00 “9 
OOOfiOS 
n 0 or, p o 
0 0 0 G P 7 
OOoC-Pii 
OOOOP9 
000090 

cooyol 

C-0'i.'t'9 2 
oro(i93 
000094 


RftNGfcS(K) = 0.0 
N7.KK'G = K 
K = K.+ l 

IvPAi'IGP = WrlANGfc+l — ; 

40 H AMOtvS = VlLU :j 

fjRA'iGf. = NHAnGE + 1-.I 
IF (lNTVL3.Nt.O.) GO TO 50 

HMJr,K.9(Ktl) = tih’tAK? 

60 TO 100 

50 N1 = (s'70P--BhEAK2)/1KTVL3 

00 60 I s l.Nl 

K 3 K+j 

VALli = eHEAK2+lNTVL3*(I-l') 
IF ( .ZS'‘G.M..O) GO TO 60 
IF (vAlD.U . 1 '.;) GO to 60 
RANGtElK) = U.0 
NZrtfiu = n 

K = A+1 ■ 

N^MiiGr 3 l.'KAhGt+I 
60 RA(<GES(K) = vAlO 
NRAiiOfi- = ^RAnGLHnI 
RAi.GEStf'fU = Stop 
lOO IF ( 1 0 1. .‘■.F" . 0 ) 60 TO 120 
HAi;r,ES(K + 2) = K IG«AX 
GRrtUOF 3 fKANGt+2 
GO TO l50 
120 COi'iTir.uE 

150 CO.^TINuF, 

KtTlJHN 

LNO ■ 


GE'NRNG 

gf;nrng 

GFNRUG 

GFNRNG 

gfnrng 

G E N R K G 
GFNRMG 
GF nRMG 
GT nRijG 
G F! IN P G 
6t NRnG 
GFiNPnG 
GFnB'JG 
GENRNG 
GtMRKG 
G F N R H G 
GF nRMG 
G E ^ R N G 
GF nR-\G 
GF MRoG 
6 E R R R G 
GCcRnG 
GEMRuG 

genrng 

GE.-nRRG 
M0UF2 
HPoFa 
GFnROG 
M0C)F2 
Mnu 5 
00DF2 
. rouF2 

(;f mDh-g 
• G F N H ! I G 

Gf nRNG 
GF nRnG 


I f 


; fc 


' c. 


' c 


> Gi 


I i. 


As 
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f t^r LFPA»ltr605n» b91«l 


oooom 



ISUBHOUtlNE LFPA(FL0A*LMr)*LYR*'ALFGMt0AY5) 

ou!)cr2 

c 






OOOOOi 

c 

HaOULE - PlLf-PA : 




000004 

c 

OCTObEff 1, 1973 : 




OODOrb' 

c 






0 00 0 06: 

c 






0000O7 

C 

JUNE 26*1973 • 




0 1; ■» 0 0 B 

c 






000009 

c 

POO'JLE HPtEPA - point target 

pehforhance predictor 

ocooio 

c 






OOQ(),U 

c 

GIVEN i)AY*HONTH*YFAR - subR. 

LFPA 

returns the RIGHT 

000012 

c 

GHEEN-rtiCH AT SlUMGriT OF A GIVEN DAY- 


ouOD’3 

c 






0 0 01,14 

c 


REFFHF‘>:CE EPUCH IS 0 HOUR 

1 JAN 1950 



OOi'Ql':* 



DATA PaIUAH' /57.2957b/ 




0 0 0 Ji 1 t> 

c 






OOOOl 7 

c 


compute days in full years 

from 

EPuCH TO LYR 

OOOOIB 

c 


DAYS To lJAMl9oi IS 4746. 




ooo;oi9 

c 






OOOOPO 



DAYS=47«6. 




0 00!H?l, 

c 


note— l.YR HUST BE GREATER 

than 

OR 

EQUAL TO (19)64 

OOOC.?£ 



LASTYRsl tP-1 




OOOOSi 



DO 20 t = 63*LASTY|v 




00Oi?4 



KPLM1'=s'''UI<4»6U) *4) 




nOro?b ; 



IP(BhVMC,,r:i.(,) GO TO lo 




000:026 



0ATS = r’AYt> + 366 




noo'o27 : 



GO TO 20 




00Of2d 


10 

DAYS = (iAVS + i6S 




00002V, :: 


20 

CO.'TlNUl- 




000030 : : 



IFiLl-.n-l.nOf 40* 3J 




000031 


30 

If a'.'P-?) 60,50,60 




000032 


4 9 

DAYS^DAYSf M.DA-1. 




nor:o:3i 



GO Tu 270 



- 

000034 


50 

UAYS=:nAYS + FLDA + 30. 




0OC036 



C.n TO p70 




0C0036 


60 

6DEL = f'nri (LYr-60) *4) 




00O037 



IF(KDEl.OT.O) go to 7o 




00003S 



0AYG=i:AYb*59. J 




0C003V 



GO T'J fl4 




0 C 0 0 4 0 


70 

DAY.S="AYSt5S. 




0 0 0 G m 


eo 

lf(L-lC-3l 270*170,90 




0C00O2 


90 

lF(Ltr-51 180*190*100 




000o«i 


100 

1F(L.T-7) 200*210,110 




oco:oft4 


110 

IP(L..r-9) 22ii,2i0*l?0 




000045 


12 0 

IF (1. U -1 1)540,250,260 




000046 


170 

DAtS=CAYb+FLDA 




OOD'047 



GO TO 270 




000048 


1«0 

DAYS=1 AT6+FL0A+31. 




00-0049 



GD Tu 2^0 




OU10SO 


190 

DAySsrAVs + i-LGA + ei. 




oyof;M 



GO T u 270 




0000^2 


200 

DAYF = nA''6+H.DAt02, 




000053 



GO TU 270 




0 0 '1 c 4 4 


210 

DAYr>=l’AY6-fFL0Atl22, 



- 

000055 



GO TU ?70 




n 0 0 G 5 o 


220 

D)Ys = fAYbtFl.i)A*153. 




'!( rr.i,/ 



GO Tu ,>7 0 




vl. 'H rMj 


230 

DAYF»( AVb»( LijA* 184. 
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0UO059 

OOOCfiO 

OO'IC^I 

00 p 662 

000065 

000064 

000065 

00006c 

0 (/ 0 |i 67 

000063 

000069 

000070 


GO TO 270 

240 L)AY5 = nAVS+FLUA + 2l«, 
i;n TO 270 - - 

250 0AyS = n4Y6 + FLliA + 245, 
cr> TU 270 

260 GaYS=DaY5+FL0At275. 

270 COaHMie 

aLFG;:= A fOOCSMRL a. 100 07554203+ (, 96564734600) ♦OAYS+ 
1(2.90151 -15) +OAY5+ 62)) »3e0.) 

alh;m=alfgh/haoi AN 

RKTlIUf: i _! i' 

' tNO'.:"' 


LFPA 
LFPA 
LFPA 
LFPA 
LFPA 
H LFPA 
LFpA 
Lf FA 
LFPA 
LFpA 
LFPA 
LFPA 

r 


0 * t 


\ 

} 

I 

I 


I 


I 


f i 

I 


? ! 

■ i 

.} 
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oooonl 

OOPOC2 
POnoOi . 
oynopy 

0000'' J 

00O006 

OOOQf.7 

noooPo 

OOPO'’7 

OOl'OlO 

OOOOiH. 

oonoiia 

0000J3 

0 0 n 0 !l 

n 0 0 n il s 

oopdo 

OOC'OO 7 

PUOO'IB 

000019 

00 0‘j>>0 

OOOOPl 
OOC-C22 
CO <'0.2 3 
OuO0;?« 

0 0 0 (li? b 
0 0 ''02 6 
P 0 0 02 7 
0oO02B 
C00029 
000030 
0 00 tn I 
oor(,3^. 
000033 
P0P03M 
000035 
opf (j3r> 
POPP 37 
00OQ38 
porojo 
nOPuuo 
OOOOOl 
OOOCP2 
OOPO'ti 
OOPCUM 
0 0 OOP 5 
00000 b; 
OOOD07 
000008 
PQ0009 

nO'' 0 '-'U 
0( Post 
puoVj2 
000053 
000054 
por<j55 
pC'OOSb 
oc.rp’ / 

0V'"L>< 0 


kckist 
mchist 

MfHlST 
MCHIST 

mchist 
mchist 
mchist 
c^Kor'i 

C.'rtniH 
CAHOXN 
mchist 
KANG b 
HANGt 
KAf.Gt 
HAf.Gt 

mchist 
HPICTL 
PK'TCTL 

nckist 

Sf-LCrH 
StLCTi'J 
SI LCT'J 

mchist 
FILGuC 
mcdf 
m('dF 
f-IUFUF 

DIMENSION KWr'(iO , l(<IOrO l«) » IPKOAT (H) »PKDATE(b) »XtPfi(a)iXtYL0(6) FILBUP 
»t APVAl (2) 

*, MCEKPUuO) 

HEAL 

INTFGCR rlU->M,‘^.<OATC 

EOUlVALENCh (KUDF (1) »NSED»NTfKHIN(l)) 

♦ , (KRDF(P) ,IGP sO,mSTRAT,NHEGS) 

♦ » (AI'uF (3) fXHH i.f’ZTUTl 

♦ » (XHuFCP) * APE '»‘'b'0 
*, (KF;tf C5) fXlp (» = ’pn) 

♦ » (aIUiF ( A) t '-! • 1 'UOrlO C 1 ) ) 

♦ f ( HPtiF 17) f H A ) 

$1 (APuFi?) tXBTPH) 

♦ » (KI'hMO) f XCV2) 

♦ t (KPDFUOIfXTP'ltlPPOATa)) 

♦ | (IvnuFm) tP^OATtcm 

At (tvBuP CU) tXLP iU) ) , 

♦ f Cl3yDF(2n tXfcYLOCm 
At fKRHF (?4) fApVAUl) .MCREF) 

♦ t CK!‘.|iFc2j) ,HCFH»C1)) 

At: (KHliF(27) fXTCL')) 


COlV'ON /hSIDG''^/ A'VALfSTDDtVtXMPSUHtSOPSUM HSTOGM 

A, ,.PANGFtlRAA'GE( 51 )tNTDTLtHANGES{ 52 ) HSIOGM 

♦ , MII.VALtMAXVALtDATPR 0 ( 3 )tNZKNGtREF HSTOC.M 

C HSTOSM 

HEAL HI.'iVALtMAXVAL HSint.M 

rLTFOrp OAIPKP ' HEIC(.H 

C KCliIbT 


O Q 

i| 
© ^ 


F ILBUF 

npof 
F IL"L|F 
KG OF 
f ILsiUF 
FlUHUF 
filruf 
mgdf 

HPljF 

hOuF 

Mf'bF 

riC'DF 

HODF 

MODF 

HOOF 

MOUF 

MODF 

HOOF 

MO OF • 

HOOF 

HOOF 

HOOF 


r MCHISTtlt7*0511t 591«7 ♦ 1 

SUBPUUTlNE MCHIST 
C . 

c »•> THIS opLITlNE PRODUCES THE MONTE CARLO REPORTS 
C 

, C . ■ V ’■ 

C *** COMMcJm storage 

^ c ' 

COMMON /CARDlN/RPTYPE,AUNlTStPARMTR(5) 

♦, ICASIH(S) tLEVFL.JPARKtIFRR 

integer HPTYPEtAuNlTS.PARMIR 

COMMON /range / start t INI VLl fPRE‘AR'1 f INTVLZtBREAKZ 
lNTVL3tST0P 

C ' 

REAL: INTVLltINTVL2tIMTVL3 

C ^ 

COMMON /PRfCTL/ .tPAGttM.INEStHAXilNfKDUTfHEA0ER(I6) 
InTEGFr HFADER 

c 

COMMON /SFLCTN/ bI0ND(0)tWPRTY(4) tIPR0(3tl9) 

C 

integer HIOWOtWPRTY 

c 

COMMON /FILiVUF/ F ILENM (2) t I CNTR Y t IREGN t IZONE t ISTRT A 
», ISbSTAtlCASEtMXSEG 

»t KPuF(125) 

C 


f 


<r 


I ( 

♦ 

: « 




5 


i 



I 

i _c 


• V 

i 
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m 

>1 




: fa 

000059 


COMMON /PRNTIO/ CNTR Y t REGION »Z0ME»STR AT A ♦ ICASEN 

PRNTIO 

> 1 

000060 


•, FILENOtFILNAMXZ) 

prntio 


000061 


*, ITOTYPtNAMFMr 

PRNTIO 


0GQCJ6£J 

C 


pkntid 

> 

0 U 0 ^ 5 


integer CNTRYrHEGIUl'itZONt. strata, FILENO fFILNAM 

MDDF 


000060 

c 


mchist 


000065 


COMMON /READNG/ REaD!,G(5600) 

MODF 


000066 

c 


NODF 


OOCJ67 


DIMENSION CLEWAdOO) , r.LEFRD ( 1 00 } , CL ATFC ( 1 00) tCLPTEC ( 1 00) 

MODF 


•no''i'6fj 


♦ , CLATi-.CdOO) ,C|.FTwC(100) 

MDoF 

> 

0Urf;!69 

c 


r.i'DF 


006070 , 


£DU1 valence (RtAUNG(5001) »CLtHAd)) 

MODF 


0 0 0 07:1 


♦ » (KLADNG(510n,CLERPOd)), (RE AONG (520 1) »CL ATEC (1 ) ) 

MCDF 


00O07?.: 


♦ , (KEAD!.G(S30n iCLPTFC(l)) ♦ (R£ADNG(5«01 ) tCLATwCd ) ) 

KODF 


000073 . 


*, (Rf APNGCSSOUtCLPTwCd)) 

MODF 


000079 

c 


mchist 


0 0 0 07 '3 

c 


’mChIST 


f)0?07o 

c 

•»A LOCAL storage 

mcmIst 


0 on 077 

c 

BaTa ClSTRT,CHVL 1 ,CLOHKl,CLlVL2,CLBRK2fCL:VL3rCLSIOP 

mchist 


000073 


mchist 

, 

600079 


* /o. 0,2.0, 100. OfPFO.O/ 

MCmIsT 


oonoou 


IPNT = 0 

mchist 


OCPO*'! 


HRtC = 1 ; 

mchist 

if • 

0 00 06 £? 


IH =1 

MChlST 


no OOP 3 


ICL = 0 * 

M0UF2 

:> 

OCOOP9 

c 


MDiTST 


000005 

c 

GET header RECORD ’ 

mchist 


nCCtPb 

c 


mchist 

Q 

r.000P7 


CALI Fit. UA(IH, IPNT, NREC) 

HChIST 


006(,PfJ 

c 


KChIST 

'■ ' ■ ■' 

OuOO-''9 


ICAREN = ICASE : ■ 

mchist 

D 

otroog 


FILNaMO) = FlLENM(l) 

hCh'IST 


0 0 0 0 0 1 


NA6FMT =1 

mchist 




CNT9Y = ICNTRY 

mchist 

D 

0 0 n 0 0 3 

c 


mchist 


0UOl,'O9' 

c 

»»♦ C“£CK- CASE NUMBERS 

HC.hIST 


nooo°S 


DO SO I =1,9 

MCHIST 

0 

000096 


IF (PAH.NTR(I) .ES.O) GO TO 50 , 

MCHIST 

\ ^ 

0 0 0097 


IF ClCASlNdJ.ED.lCASFj GO TO 50 

mchist 

: 

nooc^rf 


CALL PaGh6k(-.'1) 

KChIST 

P.: 

0u(i099 : 


hSllt (HUU1.6500) 1 ,ICASIN(I) ,ICaSE,F1LNaM(1) 

mchist 


0 0 0 1 0 0 


PAK.”TR(n = -PaRmTk(I) 

mchist 


000101 


SO CONTU-uE 

hchist 

D 

0 0 0 1 P 2 

c 


MC-HIST 


000103 


mAXPHR * Nb6 + N’P0 

mchist 

[ ■■ 

000109 

c 


mchist 

P 

0 u 0 1 0 5 

c 

»»* generate range values 

mchist 


P&0106 : : 

c 

■ ■ ■■ 

hchist 

■i ■' 

O00107 : 


C»LL r,£NHNG(lCL) 

M0UF2 

D: 

OOOtPB 

c 

♦»» LOUP ON parmtr Values 

mchist 


006109 


00 900 I = 1,0 

mchist 


OC-61 10 

c 


mchist 

D 

6'J01 1 1 


I°NT r G 

mchist 


6 0 6 1 1 2 


JR IN CO. 

mchist 


600113 


JPRP so" 

HCHIST 


0 0 <: 1 HI 

c 


M C K I S T 

!. 

6('6 1)lj 


IF (ParI’TR(I) .LE.O) go to aoo 

mchist 

I, . 

Oi 0{ 16 

c 


MCmIST 


'«C6|,t7 


JRAP'i =1 

hchist 

ll 

r) 

r 



LLVLL =1 ' 

MChlST 
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li 


000119 
OOOlpO 
OCOIPI 
0 0 01 ?2 
000123 
Gooipy 
nOClPS 
OOOlpo 
nonip? . 
r 0 n 1 p 0 
OO0l?9 
C 001 JO 
POOlf 1 
OOO 1 
OOOlI^J 
OOf l.’V-4 
OfGijs 
^00 1^6 
000 iS? 

000138 
oonno 
0 G r 1 Go 
0 0 0 1 ?, 1 
nOC- 1 t-P 

00 0 Iti: J 
O&oiou 

OOCltS 

0 0 II 1 i-b 
0 0 0 1 Ci7 
0001 08 
ouoitv 
000180 
0 0 '! 1 8 I 
OOC ISP 
flu r 1 s i 
ooo I'oO 

000158 
0 0015 0 
000157 
ouoiou 
0 U 0 1 S 9 
noP14'U 
OCOlM 
0 0 0 1 8 P 
000163 

0 c 0 1 6 a 

OCPlAb 

OC’O 16b 

003167: 

0001^8 

0U0169 

000170 

000171 

001) 1 7P 

1)00173 

"1*0170 

000175 

ouiu7o 

*H-'l7i 

0 u ■ 1 7 H 


NRPT el MCHIST 

MOOFP 

♦♦♦ aLL KOnTE CAKLO reports rill Rt PROCESSED aT COUNTRY LEVEL ORLY TruoiiFa 

.. _ Moora 

LEVEL = 3 ■ P.0DF2 

- - KODE‘2 

»♦#»»♦♦*»♦»»»♦♦♦*♦»♦♦♦♦♦♦♦»♦♦♦♦♦♦*♦♦♦ *»*****»*************»»***»#T*»A»rtnDF 2 

; P0DF2 

.1 .MCHIST 

»»♦ SET Values for special case cparhtr{«)sn) iichist 

^ ^ : : MtHIST 


C T»* 


SET Values for special case cparhtr{«)sn) 
IF (JPaPm.lt. GO TO 100 


level s 

NRPT s 

ST A H 
I NT /LI 
UPtiKl 
INTV'LP 
HRE/Kp 
IN'TVLS t 
STOP : 


3 

6 

CL5TRT 

CLIvLl 

CLP-KKi 

CLIVL2 

CLf)KK2 

CLIVL3 

CLSTOP 


ICL = 1 

CALL r.Et'HUG(ICL3 

LOOP ON PREDICTIOf POINTS 


100 C;OoTlNuE 


IF (JVlH.LT.0T GU TO 
PROCESS bTO-ViIMOUHS 
J).1H = JiLlO+l 

IF (JVIN.GT.A) GO 10 

IG = IbI0WL)(IPnT+1) 

IF(1G .hU. J«In)GO to 
IF (bIO' U(Jl- ZHJ .t'l.OJ 


130 


120 


vtj Q 

s| 


la 


ItO 
Go TO 


100 


CALL PaI H('R(-U) 
yRITE (I CUT»65lO) 
GO TG iro 


JRINtTCASEfFlLNAMIl) 


no 


120 


IPNT s IPkT+1 

IFCPlOiindG) .NE. 0)G0 TO ISO 
GO To lOO 

JR I II = -1 
JPriT =* JPMT 
JHX =1 


130 JPKD = JFRU+1 
IFCIFPi) n»JPRD) 


.ECi. 0)G0 TO aoO 


HUA = IL9i.«C3».IPl''05 
|f'U = IH'#u(Pf.)T'i<n) 


mChIST 

MC M I GT 

MCHIST 

liChTST 

MC^-IST 

HCmIST 

MChIST 

MCHIST 

MChIST 

MChIST 

MC.hIsT 

MChIST 

hCnlsT 

MO OF 2 

MOOFP 

MCHIST 

MChIST 

MChIST 

MChIST 

MChIST 

MChIST 

M C H I S T 

MChIST 

MCHIST 

MCHIST 

hCHlST 

MOD 3 

hCrllST 

MO 03 

MC.HIST 

mCHIST 

MCHIST 

MCHIST 

MChIST 

mCHIST 

MCHIST 

MOD 3 

MChIST 

mCHIST 

MCHIST 

HCHISI 

KChtST 

MChIST 

MChIST 

MCDJ 

MCHIsT 

MCHIST 

MCHlbl 


! C 


t r. 


I (■ 


i r: 


, i. 


1 ^ 


• c 


. 

I 
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00^0179 
OOOIKO 
nooipi 
oooi«a 
OOf'! P-3 
non ifiu 
ooniPb 
oon rp.6 
oonifl/ 
ouniBH 
non]!59 
000190 

noo'ioi 

000192 
000193 
ooci 99 
000 los 
0G0l9b 
000197 
000 lOB 

OOOI09 
00020 0 
0002c 1 
0 00202 
000203 

00C209 

00020b 
Oon^fib 
000207 
00 02 OH 
000209 
ooo2io 
00021 1 
000,21 £> 
010213 
00021 4 
00021b 
0002IO 

000, 21 7 
000216 
000219 
OOI‘230 
000221 
000222 
000223 
00O229 
0UC225 
0uO2?b 
000227 
OOP22B 
000229 
0002^0 
00-'2^1 
0002 <2 
000233 
ooo2'4 

0 002 15 

OlJ ^2 io 
0 0 / 
00 ',1. 


LYR a IPRDdfJPRt)) MCHIST 

C MCHIsT 

CALL LFPA CFLOA»Lr.D,:LYRf ALFGMtDAYS) MChIsT 

in ATE = days . MCHIsT 

c ■ ; rchist 

DO 135 lox = Jr.'XfNPO rchist 

IF (lOATE.EO.IP-RDATdVX)) GO TO 1«0 MChlST 

135 COBTIMjF MCHIST 

C NCHIST 

CALL ''ARUDRl-Oj. HChIST 

WRITE (KUlir .6520) RPTYPEtJPAHMfPARMTR(JPARM) » CIPRO (L i JPRD) iLali3) 

00 T J 130 HChIST 

C hchist 

100 IPNT a JPNUINX ■ HCHIST 

JNX a IDXd hCrilST 

c . mchist 

DO 145 K = 1 ,3 MFuIST 

105 DATPf n.d) = iPROdiJPRD) MCHIST 

C • ' HCHIST 

C »»* LOOP Ofi LE7EL VALUE MCmIST 

C HChIST 

l50 CCnTIUuE ■ . MCHIsT 

C ■ HCHIST 

60 lu (Ib5.160»I65)fLEVEL hCHlsT 

C “ _ HCmsT 

C LEVfL = I KCHlsT 

•C - i HChIST 

155 IWEC a J«fdpNT-n»63 M0DF2 

MHAX a H2T0T tiChlsT 

on :TU l7o - HCHlsT 

C ♦♦♦ ■ LEVEL s 2 : ' ' ■ : HCHIST 

C : ■ . MCHIST 

iRO M?fC a 4*(lPfJT-n*63 • . HOl'E? 

IV-AX a HKF6S • HChIST 

an TO 170 • HChIST 

C level a 3 HCHIST 

C MCmIST 

165 IREC a . 1 ♦ (IP^T- 1 ) »63 MnDF2 

H'AX a 1 HCHlsT 

C HCHIST 

170 COWTlHuF HCHIST 

C HCHIST 

C LOUP On number of REPORTS O NHAX VALUE HCHIST 

c ■ hCHIST 

tJ(i) 300 IRPT a IfNRPT HCrilST 

C MCHIST 

C INITIALIZE ACCOhuLaTUR VALUES HCnlST 

C • fiCHlSl 

J = 0 MChlsT 

IH a 0 HCHISI 

OFLFRR =0.0 MCHIST 

HEF =0.0 HChIST 

DELS! = 0.0 hCHlsT 

HI.A'AI, = l.FlO . 

HAxvaL = -l.ElO 

I-.9EC = IKEC . Mni)F2 

C KCHIsT 

on 1 75 IX = libl HCHIST 

l75 JRAMH'dX) = 0 > HChTST 

C ■ hCiiIsT 




I 


f 


! f. 
I 

I 

' i 

j 

■ <; 




f — 


I 



I 
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-i 


00023 V 

c 

»♦* 

IF confidence LEVEtSf GET ONE SET OF 

values per report 

mchist 

000200 

C 




PiCMIsT 

0 0 0 2 (1 1 

C 




MChIsT 

000202 



DO 200 loy = l»NrtAX 


nchist 

000203 

C 


- 


RChIsT 

00 f> 2 /i't 



hVtC c MKEC +1 


mchist 

000201 } 

C 




mchist 

0 on 2 £ib 



CALL FlLOAaMtlPNTfNREC) 


MChlST 

nu<’ 2<7 

C 




ricmsT 

000200 



IF (JP,\RH.tG. 4 )-CALL cLMOVE(IRPT) 


HCu'F 2 

0 U 02 « ) 



REP = pEF + i-iCKEP 


IlCttlsT 

00020 , (j , 

C 




MCHlST 

000251 



DO 190 1 «MG = It NT 

■' , 


000252 , 

■ C 




mchist 

000253 



J = J 41 


mchist 

00025 ^ 

C 




mchist 

0 C' ri ^ 



«EaDNG(J) =: f'.CtRUaUNGJ 

o o 

►art ^ 

MChIsT 

OOOf^b 

C 




P-CnlST 

OO.P 2 5 7 



MINVAL = AMlNl(NIMvtLfKEAOiMG(J)) 


mCHTST 

000256 



MAXVAL = AHAXU'-’AXV 1 L,HFA 0 ,\G(J)) 


mchist 

00 .' 2 "V 

C 




mchist 

OCfv.bO 



DELFR 9 = OELERh + OEA'tilGU) 


mchist 

000261 



DELSU = CELS 9 tR£Ai-i 6 (J )»»2 


MChTsT 

0 u !■"» c f 

C 




hCHIsT 

00026.3 


190 

COLTIKuF 

p o 

mchist 

P 0026<1 


200 

CO.'iTIt'uE 


MChIsT 

000265 

C 



Sb 3 

nchisT 

000266 

C 

»♦* 

TAUr PERCENT RANGES 

MChIsT 

00 C 267 

C 




mchist 

0 0 0 2 6 a • 



nTOTL = J 


mchist 

00 ^ 2^5 

C 




mchist 

C C 0 2 7 0 



UP 250 N 1 a 1 , NTOTL 


mchist 

000271 



pcuroR = 0.0 


(iChlST 

000272 



IF (hFF.NE. 0 . 0 ) PCDERR r IOO.AREAOnGIND/REF 

■ mchist 

O 00273 

C 




MChlST 

00027 V 



DO 220 K = IfNKANGE 


MChlST 

000275 



IF CPCdERR.NE.o) go To 2.10 


mchist 

000276 

C 


1 


mchist 

OC ^0277 



IRA‘IGF.(NZRNG) = IRaNGFCNZRnG)*! 


MCHTST 

000276 



C (1 TO 250 


MCHTST 

000279 

c 




mchist 

00020*0 


210 

IF (PCoFKR.GE.HAI.GES(K+n) GO TO 220 


mChIST 

0 0 0 2 P 1 

c 




mchist 

000202 



IRANGF(K) = IRANGE(K)tl 


MChTsT 

000203 



GO TO 250 


mchist 

000209 

c 




mCHIsT 

00 02? 5 


220 

COi-iTIf UE 


mchist 

0002 P 6 : 


250 

C 0 |,T 1 NuF. 


MChJsT 

0002” 7 

c 




mchist 

0 0 C 2 P-B 



OATPKr>(l) s JKIN 


HOOF 2 

000209 



IF (JPlM.GT.il) GO TO 200 ’ 


mchist 

''(0290 

c 




mChIST 

00 C 291 . 



CALL FZ'-'LUaOATEfDATPpD) 


mchist 

000292 

c 




r.CtilsT 

000293 


280 

TJ = NTOTL 


Ml IIIsT 

0 0 r 2 9 4 

c 



- 

MChlST 

000295 



X«VAL = 0.0 


MChIsT 

009296 



IF (hNF-f'F.O.O) XMVAL = 100 .Z(TJtREF)*L'ELERR 

HChlsT 

H- 0 , 9 / 



aTfOtv = 0.0 


mchist 

'•0 i 29 h 



lK(:,H.H>RiV/T <7 - DtLSO) ,GT. 0 ,)GO 

TO 290 



r- 




■I 

t 

!■ C 

I 


c 


€ 


■ C 



c 


I 

I 


c 


/*• 

V 


i 

! ^ 
t 


1 1 


> i:. 
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OU0299 

oonioc 

000301 
000302 
0003,03 
000309 
0UO305 
000300 
0 0 0 30 / 
OOOiftt 
000307 
000310 

000 3M . 
0 00312: 
000 31 3 
000 510 
OuOitb 
00031 0 
00031 7 
000 31 b 
000319 
nijo3?o 
COP 5?1 
OU03P2 
no03?3 
OuC3?« 
0iJ')3,->b 

OOOi^fa 

0 00327 
00032B. 


IF (J.GT.l.AND.RtF.MIi.0.0) STDOEV =100./Kt»- K0DF2 

♦ *SQRT(1./(TJ»1.)*(OELSO-1./TJ*OELERR**2)> MCHTST 

C MChlST 

290 CALL PEPHT2 

C MCHIST 

300 continue ' ■ • mphist 

C hChlST 

IF (LEVEL. EO. 3) GO TO 350 MCHlST 

C HCHIST 

LEVEL = LEVEL+1 - ' -KChIsT 

CO TO ibO HEhTST 

C ■ , hChlST 

350 IF (1PnT,LT*: 5AXPRP) GO TO 100 MChlST 

c rtCdlST 

900 CO,^TI^'UF . • MCmsT 

c hcmsT 

500 RFTUHN HtHlor 

c MChIST 

C *♦» tRR'^W mFSSAGeS . MChIST 

c mchisT 

6500 POHMaT (50H *»* ICASlN(I) DOES N'OT MATCH CASE NUMBER ON FILE./ MCHIST 

♦ IPri ICA$Pi(,Ht2h) = tI«»15H FILE CASE = M0UF2 

♦ , ; llri FILE NANfc »A6/IH M0D'-‘2 

6510 format (3BH KEVHILSTFU bIO->.INnOP NOT OiT FILE./ MCtllST 

♦ 2p,H UTU-WI.-iOO-.f MU. = .Il»lbH FILE^CASF N0.3tia» M0DF2 

» llri file maNE »A 6 /lri mCUF 2 

6520 format (b<IH l-'iPUT PREOICIIOO DATE DChS r.OT MATCH DATE ON FILE/MChIST 

♦ 12H RPTYPF = .I2,ah P ARM Tt< ( , 1 1 , 2ri) - . 1 1 » 1 2M INPUT DATt=* MCHIST 

» 3I2/1H /iT(>ib(6ht*t*a»j) mchisT 

END', _ MCHIST 
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P twf PAt;HDRflt7605n» 59134 t 1 


oooooi 



/SHbRUHTlIN'E PAGHI)H(h) 

0ui'-o02 

c 



000005 

c 


routine CaHTRCuSiCOUNT ON PRlNTEU OUTPUT AND PKOVlOfS 

nocoCH 

c 


" UP PrIhTEO HEAUING ON THE TOP OF EACH OUTPUT PAGE, 

OUnooG 

c 



ounono 

c 

»»♦ 

COriMOH storage 

n 0 0 y (' 7 

c 



:l GOO*’ (4 



COi-iMUH /PRTCTL;' NPAGE,NLlNt-S*M.AXtlN,K00T,HEA0EH(16) 

0 00 009 



INTFCEK HFaDER 

OgOOH) 

c 



OOaoSl 

c 


LOCAL storage 

nonolci 

c 


* 

000015 



DATA LPRINT /-!/ 

OGOO 1 <* 

c 



n 0 n 0 1 5 

c 



000016 



IF (LPRlHT) 3f«*5 

0 0 '1 y I 7 

c 



0 0 0 0 t B 


3 

N1 a HaVLIN-3 

n 0 0 0 1 9 



H2 = PaXLIN-1 

n 0 0 n ? 0 



LPkTi.T = 1 ! 

ooouPl 



GO TO 30 

OQOC■^^ 

c 


- 

0000P3 


4 

LPRTgT = *1 

nuoy?R 

• 


GO TO-jn' 

ooofjPb 

c 



POOCPO: 


5 

IF (Iv.Te.0) go to 10 

nooo?7. 

c 



OOOG?:B- V 



J = M.lNtS+N 

roo&29 



IF (J.gT.nI) go TO 10 

OOOC-50 

c 



00 00,51 



MI.IMtS c J 

0 lU H ^ 2 



GC TO 50 

0i'''-.>55 

c 



oyoulO 


10 

COrJTINuF t 

00005b 



IF (H.NF..O) GO TO 30 

000056 

c 



0 0 n G j 7 



00 ?u J c NLINE3fH2 

rooo5H 


20 

hRITE (KOUIflOO) 

00C059 

c 



0 C 0 G 0 0 



LPRTNT =0 

OOOCiAl 



GO TO 50 

n c 0 0 0 2 

c 



0 0 0 0 0 3 


so 

r.PAGt s NPAGE + 1 

000004 



WRITE (K0IJT,120) (HEADER ( I J » lal , Uj ,NPAGE 

oonoob 

c 



0 01 0 0 6 



MLIUtS = StiAfiSCN) 

nooyoT 

c 



nooooa 


50 

return . 

0 OOP 09 

c 



P P 0 u R 0 


ino 

FOKHaT (IH ) 

POOObl 


120 

Fnl<’'AT (lHlf6X»16Ab,lil/lH0) 

0000‘,2 

c 



CG0053 



END 


PAGHDS 

PAGhOR 

PAGHqR 

PAGHOR 

PAGHoR 

PAGHOR 

paghor 

PF-TCTL 

prtctl 

pagho-R 

PAGHOR 

paghor 

PAGHOR 

paghor 

PAGHOR 

paghor 

PAGHOR 

PAGHOR 

pnoF 

PAGHOR 

PAGHoR 

PAGHOR 

PAGHOR 

paghor 

PAGHOR 

PAgHoR 

PAGHOR 

PAGHOR 

paghor 

PAGHOR 
PAGHpR 
F AGHOR 
PAGMDR 

paghor 

HOOF 

HOOF 

HOOF 

PAGHOR 

pAGHoR 

PAGMijR 

PA&HoR 

paghor 

paghor 

paghor 

PAGHOR 

PAG'-oR 

PA&HOR 

PAGHOR 

PAGHOR 

PAGHOR 

PAGHOR 

paghor 

PAGHOR 


! 

' 


'■ f' 


0 




c 


c— 


- [ iniHrflitflniiiii rtnin iCiri'i itl*H1iil1Tl 1 11 H l UT f l fc 
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P P0PDRVtl»760Sll» 59U7 i 1 


rtOOOOl 

SUHROUTIN'E popurv 

POPORV 

oooocs 

c ' 

POPORV 

noocjni 

C THIS ROUTlriF I.S THE ORIVER pOR THE POPULATION REPORTS 

PCPDRV 

r<0000^ 

C 

PPPORV 

oooorS 

c 

PPPDHV 

OOC'OCd 

c comhon storage 

PCPDRV 

oorof? 

c 

PCPPRV 


COMMON /CAROlM/RPTvPEtAUNlTSfPARMTRCS) 

CAROIN 

OOOU-9 

• f ICASU'Cb) tLEvELfJPARfirlEKR 

CApniM 

000010 

INtEGER RPTYPE»AUmiTS,PaRMTR 

CARDIN 

ooooii : 

c 

PnpDRV 

ovnjii 

• c »*♦ cemehate Ranges for histugkams 

PnPDRV 

OuOOli 

c 

PPPDKV 

nu(i)ci<i 

ICL = 0 

M0pF2 

•0 0i)(,ilb 

CALL GfNRNG(ICL) 

MPDF2 

f'oOo 1 0 

C 

pnpbiiV 

G 0 0 U ’ 7 

c PARMrR(l) 

PPPDHV 

0 0 1 01 b 

c , 

PCPDRV 

0 0 A Oil 9 

IF (PArMTRCD.EO.O) go to 20 

pop PR V 

OOon'^ (1 

C 

pf.pMHV 

ruocpi 

JPARM =1 

PPPDRV 

00O0P2 

. 0 

POPDRV 

C0OOP3 

CALL SaMEPR • - 

POPORV 

00002“^ 

C 

POPORV 

no OOP b 

IFRR so - 

PnPDPV 

ooGolPfa 

c • 

POPPkV 

0'jna?7- 

c **♦ HAk'iTR(2) 

POPORV 

nunopa 

c . - - - 

POPORV 

0G(IJ?9 

20 IF (PARf.TRC2).EQ.O) GO TO «0 

POPORV 

0 0 n 0 J 0 

c . 

POPPKV 


jPARr^ s 2 

POPORV 

000032 

c 

Pf PDRV 

0 IJ 0 0 3 i 

CALL CaMSEK 

POPORV 

0 0 ;) 0 3 -4 

C 

POPORV 

nono3b 

lEHR 3 0 

POPORV 

000036 

C 

POPORV 

OC0037 

c ♦♦♦ PARSTR(3) 

POPORV 

0U0(i3b 

c 

popdrv 

00'0o3V 

ao IF (PARMTR(3).EO.O) go TO 60 

PI PORV 

0 0 " 0 0 u 

c 

POPORV 

ocncGi 

JPARn =3 

popdrv 

OO00O2 

C 

POPDRV 

000003 

call YLOtRR 

PCPORV 

ocibo'iu 

c 

POPORV 

0 u 0 0 0 b 

IFHR 3 0 

POPDRV 

000 0 '-6 : 

c 

• PPPORV 

0O00O7 ■ 

c **• PARMTfi(<0 

POPDRV 

oonoob , 

c - 

POPDRV 

00 0009 

60 IP (PARMTF.(a).eO.O) GO TO 60 

POPDRV 

0 0 0 u b 0 

c 

pnpORV 

00 00b 1 

jPARi r 0 

POPDRV 

0 0 0 C'b 2 

c 

prpDRV 

0 u n 0 b 3 

call AnPLRR 

PPPORV 

0 0 0 C b a 

C 

POPDRV 

OOOobb 

IFPR E 0 

POPORV 

OiM.;bb 

c 

POPDRV 


c pARMrp(S) ■ 

popdrv 

OLtOi)' 0 

c 

POPDRV 


. O 

; O 

t 

! 

i 

! o; 




u 




u. 


o 


! O 


o 

Q- 


c 


000059 
000060 
0 00 061 
oooc6e 
000063 
Ouoo'"^ 
0 Jro65 
000066 
0 OOU 67 
0 0 006 6 


80 IF (PArNTR(5).EQ.O) GO TO 100 


c 

c 

c 

c 


JPARM = 5 
CALL /►jPtRR 

100 return 

tNU 


1 






pdporv 

POPDRV 

PnPDRV 

PUPDRV 

POPORV 

•popnRV 

PCPDKV 

POPDRV 

poporV 

POPDRV 


‘ < 

I 

J 

' 1 


1 

‘ < 
! 


I . 

t 




I • 

» 


I 

i V 

I 

I c 


tsJ ’ 

00 ’ 

I . 

ja: 5 

a, 


I « 
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000001 

000002 

OO^OOi 

coouoa 

ooooc'j 

nonoob 

oono'17 

OObood 
OOOb''^ 
oonc 1 0 
0000 1 1 
0000 1 c 
000013 
000014 

nuoolb 

0000 l,b 
0 0: 0 0 1 7 
noOoiS 
000019 
n 0 0 0 0 
tiOOC'?! 
00(1 C?d 

oobo?3 

000024 
0 0 0 Cl P s 
000026 
0 0 0 0 27 
ooonpb . 
CO0O29 
CU003Q 
OOOO’U 
0 0 0 0 3 2 
0 0 0()33 
000034 
000035 
0 0 0 0 3 6 
0 0 01)37 
000030 
non039 
0 0 0 O'l 0 
000041 
OOOQ42 
000003 
OOOC-44 
0 JOOOS 
OoOuab 
000067 
0 0 0 0 4 8 
0 bo 0 4 9 
000050 
OOOO'- 1 
0 0 0052 
n00053 
00 0054 
4 0 0(1 4 3 
000046 

niiiii)')7 

OllOljSf) 


.f PO'JT*lt760511» 59U3 


« 1 


THE HOST PftOCESSi)'? PKOGRAM 


c 
c 

•c • 

C COfiatJN storage 

c 

COilMON /CAROlN/RPTYPEf AUNIT3»PARMTR(5) 
f, 1CASIM(5) iLEVELtJPARMflERR 

IMTEGER RPlYPEi AU'JlTSfPARMTR . 

C . ' • 

COMMON /Range / STaRT t iNTVLl fBHEAKl t INTVLStBHEAKZ 
*, 1MVL3»ST0P 


c 

c 

c 

c 

c 

c 


REAL INTVL1.IMTVL2.1NTV1.1 

CCIHMUM /bttCTM/ f WPRl Y(4) * IPRDlSt 14) 

INTEGER UIOPDfRPRTY : ( ^ ;• 

COMRUN /PRTCTt/ i<?AGEfNLlMES»H.AXLli’MK0UTtHtA0ER(16) 

integer hpAncP 

COi-iHQN /COMVRT/ CTANEP.(5>tCTMTRC(3) 

COMMON /SUBHS/1C5ESH 


C LOCAL sTUHAGE 

c 

nlMEi'iPlOW IHI£A(jRU2) 

OlMEGSiCN RanGeC /) f RMGNml(7) iInPVLKIS) »lNPVt2t5o) 
*, AMCVT(3)TXMCVT(3)»NCAR0(5)fP'H0R(4) 


LOGTCAl INEPRS 

t0ol//l EMCr. (OAi-'GFCl) , START) f ( I KPVL I ( 1) i RPT t Pt) 

», . (KiPVL2(n*FU0riI)(l)) 

data 1N,10UT /3,6/, NPHRNG /1/f IBL'IK /IH /. LNMAX /«S/ 

DATA (rMGMKL ( I ) 1 1 = 1 f 7 ) , /- 500 . » i_ 00 ,«-l 00 «_» 5 » t lOO. * 100 , ♦ 500 ./ 
|)AfA MuORfUluPl »NlNP 2 ,tiRiif / 12 t 13 t'jOf 7 /f iNfRHb /fEALSE,/ 
data (AfCyi(l)»I = l» 3 ) / 2 . 471044 E- 04 *'i.b 74 i 344 E- 03 *l. 4369664 / 
data (X‘-CVT(n»I = li 3 ) /.Onit.OOQlf 1 ./ 

DA I A I. aI'U f (;.E oi'u ( i 1 » 1 = 1 »S) /UHi'uy i »2‘)0l t2M02t2H05»2H04»2H05/ 
DAT A (kHUK ( I) f 1= 1 » 4) /6H LP » 6nP S 1 ►'U » 6 Hl A T 1 ON » 6ri PAGE/ 
data MRPTYP /4/, X/iXRGE /5l./» JLEvEL/1/ 

C ■ ^ 

C INITIALIZE INPUT GOAMTITIES 
C 

DO 10 I a IfflHuR 
10 IHEAUR(I) = 18LNK 
C • 

DO 20 I = IfMiM'l 
20 i'JPVLl(I) = 0 

c 

DO 30 1 = 1«NRGE 
30 RAfJf.EC I) =0.0 

C ' 

pn 40 I s 1.MINP2 
40 i';pvL?(n = 0 
c 

nPa(U s 0 


POUT 

POUT 

POUT 

POUT 

POuT 

CARDIN 

CARDIN 

CAkOIN 

PC UT 

RANGE 

RANGE 

range 

RANGE 

Pf'UT 

StLCTN 

SFtCTN 

selgtn 

POUT 

PRTCTL 

PRTCTL 

PC'UT 

CONOHT 

POUT 

MP03 

PC’UT 

POUT 

POUT 

POUT 

PCUT 

POUT 

PriUT 

POUT 

POUT 

POUT 

POUT 

POUT 

POUT 

MCDF2 

hC’uE2 

POUT 

POUT 

POUT 

POUT 

POUT 

POUT 

POUT 

PCUT - 

POUT 

POUT 

POUT 

POuT 

POUT 

POUT 

POUT 

POUT 

POUT 

pGuT 

POUT 


i * 

I ( 
I 


I ( 


i 

t ( 

i 

I _ 

• I 


I t 
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P!' 



000059 ' 



WLINtS =0 

POUT 

000060 



MAXI.I»i e lNMAX 

POUT 

000061 



KOUT s lUUT 

POUT 

000062 ' 

c 



POUT 

OCOypJ 



DO So I = - lf3 

POUT 

0 (, 0 1) 4 



CTf.;’'E9(i) = A^eVTU) 

POUT 

0 0 r> 0 6 5 


50 

ctmti<c{I) = xHcvni) 

POUT 

OljOO.Ot' 

c 



POUT 

0 0 '■i Ol'' 7 



on 60 I = if« 

POUT 

AO 0 1)6 5 



J = I+l2 

POUT 

0 0 0 g <> 9 


60 

s KHOP(I) 

POUT 

OU00|7 0 

■ c 



POUT 



OCfiOlTl : ■ 

. c 




POUT 


ooro72 

c 


READ Input control cards 


POUT 


000073 . 

c 


* 


POUT 


nOO&y'i 

c 

CARD 1 - HfauPH card 


POUT 


Oor.g7*J 

c 




POUT 


nb! ojb 



READ (IMfSO'OO) ( IPfc ADR ( I ) f 1 = 1 ♦ 12j ♦ IMLBL? XNCRO 


POUT 


0 0-0 a 77 : 

c 




POUT 


OC'Ooiii 



DO OO I .= 1 1 12 


POUT 

f ■ 

0 0 0 0 79 


90 

nFAnER(I) = iheadrM) 


POUT 


rooof'O 

c 




POUT 


0 U 0 u P 1 



IF (II'LBL.ED. label. AND. INCRO'.EO.NCARD d)) CO TO lOO 


POUT 

IP. 

''oc’c.p-a 

c 




POUT 

3 

ouoof'5 

c 


LABEL ENRDR on hEA-DEK CARD 


POUT 

0 0 0 0 6 4 

c 




POUT 


0 u U n ? s 



IK'ERkS = .TRUE, 


pnuT 


(iO'^gPo 

c 




POUT 

3 

O0O,i]ii; 



CALL PaGmDRO) 


POUT 

, 

OC TOpy 



h'UTE (HuuT, 6.000) nCarD(I) tiNLBLtiNCRO 


POUT 


00 0 069 

c 




POUT 

i> : 

OOQOnO 

c 

CARD 2 - data card 1 


POUT 


n u 0 0 9 i 

c 




P'^UT 


O070b2 


100 

READ (iMfSOlO) RPTYPE.AUNiTSt (RANGE! !)♦ 1=1 »7)»INLBL»XNCRD 


POUT 

3 

COOOOi 

c 




POUT 


OU009U 



IF (lI'LnL.-EO. lapel. and. INCHD.E a.NCAAD(2)) GO TO 110 


POUT 


000095 

c 


LABEL ePPOK 


POUT 

3 

OOOOOb 

c 


1 • ■ ■ . 


POUT 


OOOOpy: 



IKERKS = .TRUE. 


POUT 

i* 

OOOC90 

c 




POUT 


OtOOH? 



call PA'inDhCi) 


POUT 

J 

£■■■ 

OOCIOO 



l.HITE (KUllT.oOoo) NC ARD (2) , INLBL t INCHO 


POUT 

oooir.i 

c 




POUT 

P 

y 

000102 


MO 

IF (RPTYPE.GT.O.AND.HPTYPE.LT.MRPTYPTn GO TO MS 


POUT 

OOOllOi 

c 




POUT 


0 0 0 1 *7 a 

c 


RPTYPF Value out op range - 


POUT 

P 

OOOlirb , 

c 




POUT 

i 

QOOllOo 



IMERRG = .TRUE, 

• 

POUT 

\ 

0UO1IO7: 



CALL PaGHDi<(2) 


POUT 


oooiloa 



write (ROUrfOOlO) retype 


PLOT 

s 

noo 1‘09 

c 




POUT 


OOOlIo 


115 

IE (RPTYPE.EO.I.OR.HPTYPE.EO.A') CO to 200 


POUT 


OOO H 1 

c 




POUT 


0(J01]2 



CO 120 I = 1 f'iRGL 


POUT 


nu>M ] i 



IE (RA.'.GLCn .9'E.O.O) POxRNG = 0 


POUT 

P 

oooim 


120 

CONTIM.iE 


POUT 

F 

000 1 lb 

c 




POUT 


Ol'i 1 ) 0 



IE (M'M(',.)t;.ED.O) GO TO lH5 


POUT 

i 

00 ’ll / 

c 




pOiiT 

noi’i 1 1) 



UO 12.' 1 = liNRGh 


POUT 


K 







/ 


[ 
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000119 


122 

RANGt(l) 5 RNGNML(I) 



POUT 

3 

0001^0 



GO TO 200 



POUT 


ooni?i 

C 


CHtCK FOR IMTEH'iAL range ERRORS 



POUT 


ooo-i?a 

c 




POUT 

3> 

0 0 0 1 r 3 

c 





POUT 


ooni?4 


125 

COMINijF 



POUT 


0001?S 



A = 0. 



POUT 

9 

ooni?s 



0 = 0. 



POUT 


0 0 0 i ? 7 



C “ 0 • 



POUT 


0UO]?cj 



0 = (1. 



POUT 


Quo l?9 



IF (6TaRT.lt. 8HEAK1) GO TO 130 



POUT 


OuOl'^0 

c 





PCUT 


0U0131 



INtRKF: = .TRUE. 



POUT 


ooniji' 



CALL PA0hDR(3) i , 



POUT 


oonl33 



.^RITE (KOUT.6020) START, URtAKl 



POUT 

(• 

O'jr-^3-1 

c 





POUT 

3 

000133 


130 

A = UPEAKl-Gl AST 



POUT 


0 u 0 1 3 6 



0 = 0 -fA/IuTVLl 



POUT 


0 u 0 i 3 7 



IF (ANorj(A,If.,TVLn .EU.O) GO TO 1«0 



POUT 

P, 

0 0'->1T3 

c 





POUT 


00C139 



It.LFhS = .TPUfc. 



POUT 

3 

Odo 1 1; J 



CALL PAGhnH(3) 



POUT - 

0 00 Idl 



v.RITfc (KUUT,6050) A.INfVLl 



POUT 

1' 

noO;iy<J 

c 





POUT 


0oQ|iu 3 


1<10 

IF aNTVL2.EO.0..AN0.f)REAK2.E0.0.) 

GO 

TO 180 

POUT 

b 

(MjO 100 

c 


■ 

— 


PCUT 


000 1 »3 



IF (faRtAM.LT.BREAK2_) Go TO 15,0: 



POUT 

3 

ouo i yf> 

c 





POUT 

ndoi'r; : ; 



INtRRS = .TRUE. . 

• - 


POUT 

-■'ii' J' 

OOOlOti 



CALL PaG00H(3T 



POUT 

0 JO 13.9 



•i.RITt (KOUT,6030) aKEAKl,BREAK2 



POUT 


o»fli'‘vo 

c 





POUT 


dooi'il 


150 

B = UWKAa?-HREaK1 



POUT 


oooisa 



0 = L1 + H/IMVL2 



POUT 

b 

000133 



IF (A,’-orUH,lNTvL2),EU.O) GO TO 16C 



POUT 


n L‘ f> 1 h ‘4 

c 





POUT 

7 

0O0133 



INLRKS = .TRUE. 



POUT 

000139 



call PAGHORCi) 



P('UT 


000137 



>.'RlTt (KUUT.bOOO) b,IWTVL2 



POUT 


000130 

c 





POUT 

7 

000139 


160 

IF ClV'TVL3.tiJ.O..A,SO.SToP.EG.O) GO 

TO 

180 

POUT 


000160 

c 





PCUT 


0001-61 



IF (BREAK?. 1 T. STOP) GO TO 170 



POUT 

7 

nooi^ii 

c 





POUT 


0001^3 



INER.RS = -.Tf UE. 



POUT 


000169 



CALL PaGHOkTST 



POUT 

7 

0 u 0 1 3 



1’."1TE (Kuiir.6090) breaks, STOP 



POUT 


COO 166 

c 





, • POuT 


000} 67 


170 

C = SToP-R.R£aK2 



POUT' 

7 

ouoi^e 



D = 0+C/10TVL3 



POUT 


000169 



IF (A^‘00(C,ImTvL3).EO.O) go TO 180 



POUT 

7 

OU017U 

c 





POUT 

00.1171 



l^ERRS = ,T5UE. 



POUT 


000172 



CAUL PaCmOKO) 



POUT 


000173 



wHlTt (KUH1,6070) C,ItlTVL3 



POUT 

:> 

nO'M! 

c 





POUT 


0 0 0 1 7 5 


1«0 

CO.NTlhUf 



POUT 


0 0 0 1 7 o 



C = 0+3 



POUT 

7 

000177 



IF (O.LE.XMlROn' CO TO ?00 



POUT 

A 

OuOil 7(1 

c 





POUT 

hSi., 











I 


i e 




(i 



I 




i V 
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000179 

OOOlfiO 
OOPlPl 
0 0 fi I ^‘'d 
Of'' mi 
Of 0 ipu 
PoGlfb 

oonifl6 
non 107 
00 0} “'1 
Of 0|t P9 

ro oioo 
r.co } 0 l 

Of I'Vii 
QUO pi 
0 0 0 l.R f 
Off lOb 
n f 0 1 <1 D 
fiti', 1 °7 
0 f 0 1 ‘‘ U 
0 f (. i '5 
noru "0 
nooppl 
Of c2oi; 
noo?i'3 
Of o;>r,‘* 

COO^C'j 
Of 02 0 0 


Oil 0 2 O'; 
0 f 0 2 0 
0002&V 
0002:1 0 
0002:1 1 
Of 0212 

Ofi.i.li 
Of 02! ‘I 
000215 
000216 
Of 02 1 7 
0 u 0 2 1 6 
0fn2i«; 

0 f 1) 22 0 
000221 
000222 
nC'ri,'2i 
Of 0 2?«< 
0o0{}25 
000226 
000227 
Of fi22ti 
000229 
fl0o2'a 
Of 0^< U 
000 232: 
Of 0233 

00023M 
II f 02'5 
Of 0;2 ^6 
Of •'.»• V/ 
Of 12 "i 


l^tRKS = .TRUE, 

CALt PAt'.HDHlJ) 

r. 9 1 T t ( K aU T » 6 0 0 0 ).„ T: M X R UE » 0 


C C*HD 3 - UaI'A CMlO 2- - 

c 

200 KEaP (in» 5020) (PAHMTR(T)»I*l*5)»(lCASlM(I)tI=l»5)t 
ILf VFLtlCbESl'*If,LL)L»lNC(<0 

C ■ i 

IE (lNLPL.t(',LARtL.AMn,Io)C«O.EO,NCARD(i)) GO TO 2t5 

C 

PifcRHS = .TIuF, 

CAUl PAt5rtnH(3) 

WHITE (KUUTjbOOO) NCARO(i) ,IHtbL,INC80 

C 

205 IE {HPTTPF.EO.1. OR. RETYPE, EQ.R) GO TO 220 
C ‘ 

SEIALL = 0 
00 210 I =1»5 

IP ( 2 Ar<‘'TR(I) .iJE.O) SETaLLsI 
210 CQIvTINUF 

c 

IE fSPTALL.EU.l.) CO TO 21d 
C . 

DO 215 1 = lt5 

IE (I.tO'.5.A'Jp.RPTYPE,Ea.3) GO TO 218 
215 FAR-IP(I) = 1 

218 IF (HPTYPF.Fa.3) GO TO 220' eg 

C ^ f— ■ 

IE (level. £0,0) LEVEL = JLEVEL ' 

C S 

220 DO 260 T = 1 *5 ^ 

C ^ 

IE (I ,Ef .5.Ai,n.RfTYPt,EQ.3) GO TO 250 


IF (RPtYPE.GT.I.OR.RPTYPE.LT.O) go TO 230 


IF (lCA3lMtn.NE.O) GO TO 250 


r><tPKS = .IPUF. 

CALL PAfilinFCi) 

WRITE (K OUT *6090) 1 1 1 , ICASIN(l) *RPTYPE 


UP TO 2'jO' 


230 IF (PAhI’TRCI) .EO.O) GO TO 2«0 


IE (icasim(I).de.o) go to 2«0 


i:’£R«S - .TRUE. 

CALL RAPnP1(3) 

oRITt (K'UTfOlOO) If l*lrA3lN(I) *HPTYPEf ItPARMTR(I) 


2<10 CO.'.TIDUF 


C CARDS a a s - (AIA CARD? 3 o « 

C 

2,Sn Of AD (iiVf5(3i') (H I0» U f I) * 1 = 1 f '• ) • ( wPRT Y ( ! ) t Id t M) 

t, (CIPKD(J*I) fJ=lfi) *I>1 *6) tlOLPLtlHCRO 


m 


PAG® 


*■ 


POUT 


POUT 

t ' — 

POUT 

1 

POUT 

j 

POUT 

• 1 

POUT 


POUT 


MCu3 

■ c. 

j ‘ 

POUT 

POUT 

POUT 

, 

i f 
( 

POUT 

POUT 

• t 

POUT 

POUT 

■ " ! 

POUT 

, ■ 

POUT 

» 

POUT 

^i. 

POUT 

1 

POUT 

1 <• 

POUT 


pnuT- 


POUT 

t C 

POuT 

i *“ 

POUT 

f 

POUT 

: 

POUT 

• 

POUT 


POUT 

* ( 

POUT 


POUT 


POUT 

\ t 

POUT 

' 

POuT 

• 

POuT 


POUT 

J 

POUT 


POUT 

1 ^ 

POUT 

* 

POuT 


POUT 

1 K 

FOUT 

1 

POUT 


POUT 

i w 

POUT 

1 1 

POUT 

< 


POUT 

POUT 

PCOT' 

POUT 

POUT 

POUT 

I'PUT 

HOOT 

POUT 

POUT 

POUT 

POUT 

POUT 

POUT 
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r 



000239 

c 

» 

0002/10 



0002O1 

0uO2'i2 

c 


0 0 0 3 

Oil 020 0 



non2»ib 

c 


noo2ao 

2 


00n2A'7 

C 


0'i''2iJ6 


> 

0OW2O9 

OOTEbO 

c 


0 U 0 2b 1 



0>iO2R2 


, 

n-jos'bi 

c 

.4, 

0 U 0 0 

c < 


0wn2''’b 

c 


n„A2''-6 

i 


000257 

c 

3 

OOf'ORS 



nt'n£;':9 

ni-oPoO 

c 

3 

OliWRM 



0 o' 0 2 6 2 
nuOPfri 


3 

oo/'2fco 



A ^ 0 ^ 

c 


0 0 o 

C ’ 



c 


OU'IEKJ 


' ■ ‘ 

000209 

c 

> 

000270 

000271 

C0u272 


r^' 

Ou''27i 

c 


Oyoa?-! 

c 


000275 

c 

5 

000270 



000277 : 

c 


our.j273 

c 


nu027V 

nwf>2;o 

c 


0o'2Pl 

c 


0uo2a2 


2^ 

000253 t 

c 


no 02 A A 

c 

? 

0uo2Ab 

0C02pt> 

c 


00 035 ; 

c 

? 

000208 



0 0 0 2 A V 

c 


Oi/Ogoo 

c 

3' 

00 0391 
000302 

c 


0 CO 293 

c 

y 

n jop99 



0 O' 'If. Ob 

c 

i 

0 u 1' 2 >0 

c 

1^ 

0„ t |.07 

Ov V. 1" 

c 


IF (lf'LBL.EQ.LA0tL.ANO.lNCRO,EC.NCARD(«)) GO TO 260 

INERHS i: . rSURV'T 
CALL PAGHt2^(i) L 

ViRITt (K0U'r»6000) NCARD(«) f iNLbLflNCHO 


IF (ILLBL.EO.LAPSL.ARD.INCHD.eu.i-CAROIb)) GO TC 270 

li.fcHHS = .TRUE. . : . — 

CALL PiGH.r)'((33 . , ^ 

V.KlTt (Ku'JffbOOOJ NCARU(5) t iNLBLf lUCHO 


POUT 
POUT 
POUT 

pruT 
POUT 
POUT 
POUT 
POUT 
PCuT 
POUT 
POuT 
POUT 

pruT 

POUT 
POUT 

tC_nO print CaPU images 

cooTiiAiuE ‘ ■ • • 

CALL Pa-GHDIU-153 

WRITE (KOUTtbSuO) HPTYPFf (PAK«T«(n»I = i’51fnCASIN(I)»l3l»5)»Lt-VELPruT . 

- - - - !lOU3 

POUT 
POUT 

; POUT 

POUT 
POuT 
POUT 
POUT 
POUT 
PCUT 
POUT 
• POUT 
POUT 
POUT 
POUT 
POUT 
POUT 
POUT 
POUT 
POUT 
POUT 
POUT 
POUT 
POUT 
POuT 
POuT 
POUT- 
POUT 
POUT 
POUT 
POUT 
POUT 
POUT 
POUT 
PfiuT 
POUT 
pf UT 
POUT 


ItlCSESh ---- - 

^iHlTE (KuUT*S5lO) tRANGEU) »I=1 

WRITE (ROUTtbbEOJ (H lowp ( I ) i 1= 1 » R ) » ( RPRTY ( I) f 1=1 ? «) 
WRlTL (KOUT tbSiO) ( ( IPpO ( J 1 1 ) f J= 1 1 3) * 1 = 1 « 1 «) 


IF (.waT.IflERRS) GU TO 2dO 


CALL PA0HnR(2) 
/tHITE (KOUTfoUO) 
GO TO bOU 


260 GO TO (30Of350f<iO0t*IS0»5O0) »RPTYPE I 
SUUSTRaTA HEPERfNCE OATA REPORT 
3«0 CALL SUOREF 
GO TO' 500 

♦ »Y POplILATlOM REPORTS 
350 CALL POPORV 
GO TU 500 

4*4 no.wte carlo reports 
aoo CALL PcFIST 
GO TO bOO 


. f 

i 


! E 


I 


! c 


^50 CALL FRfOAC 


'I 
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GO TO 500 
C 

C UNlSHfcO - STOP HUN 
C 

500 STUP 

C INPUT rOR‘'ATS 

500U KOKt'AT (lPAf>,2X,AU,Aa) 

5niu F'lK'iAT (l?,Il,7F6.1,29X,AatA2) 

So?0 M)r^''iT(?A,bIi,‘jV,5iy,2x,Il,IAt35x.A«,A2) 

5o30 fOh.'At fe:(im»2xj.b<3T,2,,U)t20X«A‘l»&2) 

SO'iO pwn“..T cot il2» IX) ♦ IHXfMU A2) ^ 

550 0 P!)iU'AT(7Xf liirtPpTYPc P aK-^-T » bX » 6 mIC ASIN t22X»5HLEvCU»2X*6HlC5tSH/ 

t9Xf I2f ii> •MSf ?A*S3t5» <<x* Ib/iHQ) 

5510 fOIuaT (P'/h I^TEkVAL STaHT ISTVLl BHEAKl 1 nTVL 2 BKEAK2 t 

* 15m rifVLi 0T0P/U'Xf7CF6:i*2X)/lH0) 

5520 FUKCAT (7X , WP«Ty/EX.«I2,2Xf'U2/lH0) 

55X0 FOK'^'AF (PXr‘^MTPHi//(7X,7(JJ2.JX) )) 

C EPKOP Mf-3SA5t FOX'UTS 

6000 pOfiUAT (-476 »*♦ I'^PPOrtR LA5P.L AS,n StOuENCt NUNBER ON POUTf 

* Iflil cO .Tridu CaKD no. *A2»lri./2Url LABEL AtJO SET, N0. = t 
» ) 

6010 format (3911 Rt^lYPF value out OF KANGt. PPT t Pt = t 12/ IH ) 

6020 FOH’-'aT (MXrt START VaLUL GREATER TBA-'i BKEaKI aAluE./ 

» ‘7H START=»Ff).l.BH HrFaK j = , F t. . 1 / 1 H ) 

6oXO FOR'^aT (AO.m iJiLAK) VALUE GrtFATtR THAN BREAKa VALUE,/ 

* fl.M hRE AX 1= ? F h • 1 » Oh kRE A^ 2=f F F, 1 / 1 H ) 

6u«0 rURMAT (SpH Ui«'L''XR VALUE GKF 4 ( L.-* ' Th A v STOP VALUF./ 


6u«0 rURMAT (SpH Ui«'L''XR VALUE GKE 4 ( t.-* ' Th A v STOP VALUF./ 

7 fin ijRE Ar. 2= , F 6 . 1 I 6H STuP= t F 6 . 1 / J rt ) 

6o50 format (Eon IHe SfG-'L--'T 'JETUEN START Avi> BREAKl HILL NOT* 

* 56h CixtuE Tutu EUUAL IMVlI intervals./ 

♦ , J'JH BRt AM-SIafT=,F 6.1 ,0ti IU1 Vli = ,F6.1/IH ) 

6060 format (5IH *** the SfgmlN'T bFl'-EFu bREAKl At.O BKEAK2 FILL NOT 
T ihn d 1VI,;F In'TU Et.'JAL r4|VL2 l.sT tR v ALS . / 


6060 format (5IH the SfgmlN'T bFl'-EFu bREAKl At.O BKEAK2 FILL NOTt POUT 

T ihn d 1VI,;F 1.-'TU Et.'JAL r4|VL2 l.-T tR v ALS . / POUT 

♦ ISf l'RFAE.?-MKrA!<' 1 = .Fh.l ,3H I H T VL 2= f Fb . I / 1 H 5 POUT 

6070 format (arm ♦♦♦ T <L SFG-'t'-'T itET -EEn URLAk2 AnD STOP FILL NOTt POUT 

♦ 36H UIVluE INTO' equal lNrVL3 T.NTeRVALS./ POUT 

F 13m STOP-mhEAKPs, Fo. 1 ,bH lisTvL3=,Fo.l/lH ) POUT 

6ono format Cs3n keluesifg uo. uf histogram Intervals exceeds the* pout 

» IIH F'AAln.l/M uf*f3.0/32H RFu'UESTFO nO. OF INTERVALS THAT* POUT 

♦ 20H rt'lUl u OE r,ti;ERATEn=iFU.u/lM ) l-lC.L'Fl 

6090 FOkM;.T (I2n IC AS 1 1. ( , 11 * J2H) VALUE MISSING FOR REPORT TYPE,/ POUT 

♦ flri ICASIN'C*!’ f PMlsflMf Sri hPTVPFr* I2/lh ) POUT 

6100 format (IPH ICaS IM( ,n ,32ri) VALUE MlSSIriU FOR REPORT TYPE,/ POUT 

♦ .6h ICASit:(*ll *pn) = *l9*HH HP f YPF = * I P* 8h P ARMTR { * I ' * 2H) = ♦ POUT 

♦ Il/IH ) POUT 

6110 format (/53I! RUN TERMINATED BFCAuSE OF InPuT DATA ERRORS. *»A)pOuT 

rj n * . V 


8 ^ 
^ So 
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f 


t> Eu- PUNlTS«lt7605n» , i 

f , 



0000''! 


SUHPOl'TiNF PUNITS (f ACT0«*1 UnITS) 



PIJNUS 


nooof'2 

c 




PDNlTS 

\ 

Ouooni 

c 

♦ THIS ruUriNF. SFTS-jP the PHOHER PRINT ANO CONVERSION UNITS 


PUN I TS 


0 !- 0 u f! 9 

c 

»♦» e'OK 1)-E HOPULATIU:'f and *10NIE CARLO REPORTS: 



PUN ITS 


r v) 0 Q ^ b 

c 




PUNirs 

> 

nOTOnb 

c 

*♦» COHHON STORAGE 



Pi:NlTS 


nu 1 0 Cl 7 

c 




PU.NlTS 


n (/ 0 0 6 


CORMON /CAHOIM/RPTyPEf AUNlTS»PARHTH(b) 



cakdin 

f,' 1 

OLoo 

P'7. . 


*t lCASlr(S) fLEVEL*JPARhtlERR 



CARDIN 

"■ ■■ 

no-iQ 

lu 


integer RPTYPE»Aijf'ITS,rARHTR 



CARDIN 


nuno 

1 1: . 

::c 




PUMTS 


oonoi2 


COPMCNl ytONVRT/ CTARER(3 )!»CT|'iTRC(3) 



CO^VKT 


nur»oi3 

c 




PUMTS 


ouro.H 

c 




PUMTS 


OOPO 1 b 

c 

LOCAL storage 



PUMTS 


C'uno ! fa 

c 




PUnITS 


0 0 P 0 1 7 


DlREiTSlON IUnITS(I) 



PUnTTS 

^ ■ 

0 1) f n? fa 


DIVERSION JFAC(10)»IAHERU(9)flHTRCU(9) 



PUnITS 


Oiinj, 1 9 

c 




PUnITS 


ni'C fartl 


DATi (jF'ACd) »I = lflO) /l,l,2,l,2,l,2,3»3t0/ 



pl'Nl IS 

» 

n ij r a 

?1 


DATA (IAHER0(I)fl=lf9) /bHlOf^R ffaHACRLS »6H: 

f 


PUMIS 

1* ' :' 

C 0 n 0 

?2 


* . 6HlO»Ab t.fahflUShELibHS 

f 


PUMTS 


000023 


* bHPEH CEffaHNf ffaH 

/ 


PUMTS 

► 

0 <) 0 I' > >) 


DATA (IHTHCU(I) .l=lf9) /oHlO+A3 t fatlHtC V AK f bHES 

♦ 


PUN I IS 


0(JCO?b 


* 6H10»*3 f 6H"'tTRIC*6H TON'S 

• 


pi’NlTS 


n0''0?o 


* faHPER CEffarlNT ffaH 

/ 


PUMTS 

> 

/ 

c 




PUNITS 


(■ u 5 U 2 fa 


ifac =0 



PUMIS 


0urtU29 


IF (RPtYPF.EO.3) ifac = IFAC+5 



PUNITS 

y 

000030 


IFAC = IFAC>JPA.RM 



PUNITS 


Oimo3 1 

c 




PUnItS 




r-FAC = JFACCIFaCJ ^ . 



PliNiTS 

* 

( o' c, 

CO 

c 




I'UnI IS 


^uCCiVo 


IF (AU(JirS.Nt.U) GO To SO 



PUNITS 


0CPC-I3S 

c 




PUnITS 

1 

Oufafa Co 

c 

**r AREHICaN UNITS • ■ 



PUMTS 


n 0 ' 0 c 7 

c 

- 



PUM IS 


OC/003H 


FACTOR = 1.0 



PUMTS 

> 

OO’V/39 


IF (Rf’TYRF,EN.3.AN0.NFAC.EO,3) GO TO 20 



M'MrS 


Ol)''|J'>v 


FALToR = CTAmEhCnFaC) _ 



PUN I IS 

r 

POPOOl 

c 




PUMTS 

l':. 

no'''0«2 


20 HFAC s (f(FAC-l)+3 



PI'MTS 

f. - 

y ■■■■ 

nuoc 

i3 

c 




PI.'MTS 


00100“ . 


00 30 1 = 1,3 ' 



PUMTS 

r..' 

CfOofaS 


J , s .IF/.C-H 



PUN ns 


nooucfa 


30 lUMIS(I) = 1A||EH'J(J| 



PUMIS 


000007 

; ":C 




PUMTS 

y-.: 

noocfaU 


GO TO 100 



PUNITS 


r 0 'J 0 fe 9 

c 




PUNITS 

i':;': 

nooc . 

"O': . 

c 

liFTR 10. Units 



pi ‘NITS 

i 

0 i. 1 fi 

>1 

c 




PUN ITS 


Ci)C0b2 


50 FACTOR = 1.0 



PUNIIS 


oooe53 


,!F (HPTYPF.Fw'.3.AN0.NFAC,EQ,3) Go TO 7o 



PUNITS 

1: 

pOflO 

•>4 


FALTOR = Cl r’THClNFAC) 



PU.NTIS 

f'.:: :■ 

Oc/fat 


c 




PUnI IS 


roiifi'Cfa 


70 «>FAC = (nFAC-1)*3 



PUNITS 

r . ' 


"/ 

c 




PI IS 

f 

iv 

L 

p '’fa 

\ \ 


DU RO 1 = lf3 



PUMIS 


i f 


r 


: <5' 


I c- 


: C; 


1-; 


! Q 


i 
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V 


X*/ 


r L V ^ ^ ^ 



i* z 2 o 
^ r? ^ o o w 
a. Q. Q. a. £ a. a. 


t 


'•WiV »*T . 



-S *«/ 


'Jf 
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^ o «-i f\i fo ^ 

in •£> X si; ^ sCJ ^ 

O O Ci o O'Vo. CS 

o o c- o c o o 

o o o o :> ::> o 

o c o c* o o o 



f 


» tuf RAMaCFiI» 760S13» 6lUl8 * I 


nuoooi 



SUttROUTlkE PANACF (IFlLEtlRFC.BUFtNtlXfLtlOPT) 

ranacf 

oooora 

c 


SrAf.DARUlZEl'' KAt<D09 ACCESS 1/0 ROUTINE 

HANACF 

OOCOi'5 

c 


nPE^St Cl.OStSf KFadS, ANO writes a random ACCESS FILE USING 

ranacf 

T 0 r 0 ^ 

c 


Ii.STALUATION i.'F.FENrhlJT KAi'iOO-3 ACCESS ROUTINES- 

RAnACF 

000008 

c 


n:, the cnc 6600 CU^'PUTIeG ETSTE« at TRW the OPEN.HStCLOSEMSt 

R A N A C F 

OOOOC '6 

c 


PtArjfS, AivO EMRY POINTS ARE USED TO ACTUALLY PERFORM 

ranacf 

ooico / 

c 


The ranuoa access i/n cperattcjns 

R A it A C F 

0 u » 0 0 IJ 

c 



ranacf 

000009 

c 


lUPuT parameters 

ranacf 

OOOOlO : 

c 


TUlE = LuGICaL IIvTI number of the random access FlLEt 

ranacf 

OC'OOM 

c 


IhEC = PECCFJ i.ll.'ir'ER TO BE READ OR '<RITTtN» 

ranacf 

ocojia 

. c 


OUF r ARRaV of length N TO COETaII. T“E HECORDt 

ranacf 

n u 0 0 1 i 

c 


(HUF IS INPUT IF IcPI = 2 ANu IS OUTPUT IF lOPT = U 

ranacf 

0 u i; c 1 4 

c 


H = LEUGTn OF peCuRD TO EE READ OH hRITIENt 

HANACF 

0O0018 

c 


IX = array of uihensicn l containing the Index RtcoRO» 

KAnAcF 

OUOQ ) 6 

c 


L = length (<F ItvOEXf 

RAnACF 

00001 / 

c 


IUPT = Fi'.ThY POI jT option .. 

RAtjAcP 

0 U 0 0 Ifl 

c 


= 0 TU OPE^' THE FILE* 

R A Ti A C F' 

O0OO19 

c 


= 1 TO REaD the FlLEt 

KAnACF 

O 0 n -:?0 

c 


= 2 TO -■vPlTE the F ILFt 

ranacf 

O 000 ?l 

c 


=-110 CLOSE THE file. 

ranacf 

cocoas 

c 



RAnACF 

noooai 



UIKENSION BuF(N),JX(L) 

ranacf 

0o''0?4 

c 



ranacf 

OO^i/r'i 

c 


linkage ... Call RanACF MFILE.IREC.BUFfNtIXfLf IOPT) 

ranacf 

'Hf-oas 

c 


ran'acf is Called from iH>PcriN* CASt hrarup 

HAnAcF 

Pvnr .37 

c 



ranacf 

’■> ./ 0 0 a 5 

c 


subroutines IISElI ... OPENwSfCLOSEMS* READIiSt hPlTMS 

ranacf 

R i\ p lya 9 

c 



HAnACF 

0a,'"0 30 

c 



RAnACF 

n 0 0 Q 3 1 

c 


ranacf 

ouoo3a 

c 


. — ... , . 

ranacf 

000033 . 



IF ( loPI .FG. -I ) GO TO nOO 

ranacf 

Otno3-l 



IF r iuOf - 1 ) lDO,200fiOO 

ranacf 

000035 

c 


lOPT = 0. OPEN FILE • 

ranacf 

O0''036 


100 

OEF'TNE file IFILE(L,I<,U,I0UM) • 


no 0 037 



GO TO 9 OO 

ranacf 

000038 

c 


loPT = 1. read RELORO ihec 

ranacf 

no o p 39 


200 

READCIfILF ' lRrCfERR=( OJl (RUF(l).lsltN) 


otobno 



GO TO 900 

ranacf 

oonom 

c 


TCPT = 2. WRITE RECORD IREC 

ranacf 

0oro«2 


30U 

write ( jFlLE'lRECfEHRssO 01 (OUF ( 1) 1 1 = 1 f N) 


OoOQ.Ji , 



GO Tu 9 OU 

ranacf 

QOOG7>4 ■ 

c 


ICPT = -1. CLOSE file 

RAnAcF 

00tH'i8 


UOO 

CALI. CLOSt (IF'lLFtO) 


000 0*76 



GC TU 9 OO • 


non 0 0,7 


600 

wRlTE(6t90niFILE»lREc 

. 

nooooo 



STuP 


000009 


901 

FORNATclHOtRlR AN IRRECOVERABLE I/O EPRDR HAS OCCURRED ON READ 

0 0 op 0 



TUG A RFroiir fru 1 a utffct access filf / 


oonpsi 



2103, oH FlLE=,Ib,bP »ECUHD=,ISt31H THE JOB IS BEING ABANDONED ♦♦♦) 


poonsa 

900 

R.FT1IR.V 

ranacf 

000053 



END 

ranacf 


♦ NEW 

»fJtW 

♦ ♦-1 

*MtW 

*•-2 
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t.- * . 

J 

Q 

s . 

,C PtPHTl»lr760Sn» 59129 t l 




ooooni 


SUbWUVTlNE PtPPTl 


REPRTl 


noapc 2 

c 

• 


REpRTl 


0 

c 

Tt^lS PUi.'n;;r COMTPOl.S AMO PRINTS THE SUBSTRATA REPfcRENCE DATA 

REPORT 

RFPRTl 


noruca 

c 

• 


RFPRTl 


Our oo'j 

c. 

♦ COIIKUM STORAGE 


RFPRTl 

D 

0 ■) 0 0 r> 6 

c 



REPKTl 


0u0(,07 


COi-.ritlN /CARDIN/>'PTVPE» aOnTTSi Pa9mTk(5) 


CARCiIN' 


ouoor ■i 


», ■ 1CASII4C5) *LevEl.tJPARt 1 »lERR 


CARDIN 

S} 

oorf/cv 


Integer rptypf,au‘^its,par‘'TR 


CARDIN 


00^0 JO 

c 



RFPRTl 


cuool 1 


COMROC /PRTCTL/ NPAGEjf, ’LIMES, HAXLlN*K0UTtHEA0ER<l6) 


PKTCIL 

2' 

nuf'012 


IHTEGFR HFAOER 


PRfCTL 


P u 0 u 1 3 

c 



RtPRTl 

\» 

no'<bi4 


Cnf.’IOM /CGmVrT/ cTai-IERCS) *cTRTRC(3}' 


COSVRT 


ouotjS 

c 

. 


Rt PRTl 


0000 to 


LOdKOM /PRNTIU/ CM7RY,REGI0'’l*20MfcfSTRATAtlCASEN 


PRMTIO 

’ 

OOPUI 7 


♦ , t lLEi'IOtElLN4N(2) 


PPl’.riD 

0. 

n (. 0. 0 5 0 


♦ , lT(jTYp,fiA'<E*',r 


PPuTlO 


0 0 0 0 19 

c 



PPMID 


0 u f ' 1 i r 0 


integer CNTRY»RE’Gt0M,70'.’ttSTHATA,FlL£N0fHLKAH 


(lOf.A 

D, 

OuPJ?l 

t 



RtPRTl 


0u00?2 


Cnr.MUM /SUOVaL/ Hv.'A»7ua,MSUBgP(3) ,nSEG6P(2)»XINBS 


SL'bVAL 


0 0 0 n ? 3 


*f * XSli-dStXINCVtXSlMCV . 


SUbi/AL 

3: ■ 

OuO(,i?4 

c 



RtpKTl 


nt on?!.' 

c 



RFPPT 1 


OOOo^o 

c 

♦** LOCAL storage 


RFP5U1 

D.:.,' 

R'j'io?; 




liFPRTl 

1 

p!M'0?t) 


LltiF'iSlON FACToH( 3) »lAMFKII(4jfI«TRCUia)»IUNITS(R} 


Rf PRTl 

1 

000029 

c 



RfPRi t 


000030 


*f UMITSC3) 


hodf 


no II 03 J 


0*TA JfTRSI /O/* mpagc /o/ 


R3PPT 1 


Oil C O 32 


DATA (It rwcucu tl=l*47 /oH ( THOUS ♦ 6 HAnD Ht»6HCTARtS»6H) 

/ 

htPRIl 


OOi'O^i 


data. ClAnEKUCl) , 1 = 1 ,4) /6H(TEN T , SnHO'US AM ,6HD ACKE»6hS) 

/ 

RtPHTl 


Oo0039 

c 

t>-'ECI3 fOK II-iF. THROUGH 


hi PR n 


O0003ii 

c 



htPRTl 

3 

000030 


IF (JFiHST.ME.O) GO TO- 100 


RFPRTl 


000037 

c 



HFpHTl 


0 0 0 0 3 0 

c 

SAVE FIRST Page UUMSeR 


RtPRTl 

3: 

OC0039 

c 



Ht'PRTl 


0 0 0 f; 0 0 


MPAGE = MPaGL+I ^ 


RFPRTl 

ii 

0|irc«l 


JFIRciT = ‘'PAGE y 


RtPRTl 

0 

Ou0p02 

c 



RFPRTl 


0 0 CH; ' 1 3 


IF (AOiJlT.S.NE.O) GO TP 50 5 S 


RFPRTl 


0 0 0 C 0 0 

c 

o g 


KEPRTl 

3 

nuooots 

c 

American i.-nITs s • 


RFPRTl 


0000^6 

c 


• 

RtPRTl 


0U00O7 


DO 30 1 = lf4 % 


REpRTl 

p> 

OOOP06 


IF (I.gT.3) go to 30 S > 


hOOF 


0 0 1) 0 11 9 


UNITofi) = CTAuFRU) P S 


MC[)F 


pno''0 


30 ruuirscn = iaperjcd 


Ri-PRTl 


no'"' cm 


GO Tu bO £S ® 


nr PRTl 

•J 

CU0002 

c 


, 

RtPRTl 


OU0C03 

c 

metric U.iItS 


KEPRTl 

?- 

OOOCOiJ 

c 



RLPRTl 


lU o,vt,5 


50 un GO 1=1.4 


RtPRTl 


' • 1 ", 0 'i ti 


IE (l.C.T ,iJ gQ Ti) 60 


R( UF 

J 



uunJci) = fi’'TFcu) 


»f'i,F 


Oi.i' eOi.t 


60 iumrscu = i-.ricnm 


Rt PRTl 




■ 'jt • 

I 

\ 

\ 

I , 


I 

j / 
I 


i i 



i t 


! < 

I 


I ^ 





c 

} 

i i 
} . 

! 

» 

! 

1 
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oooo^v 

OUOOf'U 
ounoM 
0 0 0 0 
00<' 0 fr'3 
n ij A t) f. 4 

0 0 n 0 1 6 
no )C'/-7 

0 

00 "070 
ooni)7i 
ountiid 

0'J.'I073 
O'jfiU‘74 
00C075 
0o007b 
0u0077 
"OOOV'J 
Oi O07V 

n i> '• ij i> 0 

Oi.r-un 

n L 0 (I p 5 
0 0 0 0 4 

0 u 0 D p , , 

(h O.U r' O 
"0 0 OP 7 
n 0 "0 !> 
0DC0O9 
0001190 
Ooouol 
ooouOt; 
01,0003 
0 0 0 0 0 « 
P 0000b 
oo0096 
Cu00P7 
0o.')u'',0 
noo'joo 
0 u 0 1 0 0 
0 o n 1 r 1 
PuO lOi’ 
OOOirj 
0 t 0 1 0 (4 

OOP 1,0 b 
0 C 0 I 0 o 
0 U " 1, <■ 7 

otio 1 ra 

0 II 0 ]: 0 9 
0 0 0 1 1 0 
oil" 1 !l 1 
nuo 1 it ^ 
ounit i 

0 0 0 1 1 y 

poo 1 i'“j 

1 rt f, 

0 11 f 

0(. ''1 ih 


PRINT HEAtilNGS 
80 call PaGHDKC-11) 

hOITfc (KUUTtlOoPJ CNTRY»ICAStN*(lUNlT8{I)tlslf<0 
100 G!i TO (lbP»200,21j0t300)»lTOTYP 

PRINT STkATA I. INE 

150 CALL PAPnORCU 

CHECK FOR change Ir PAGE NUMBER 

IF (iPAGE.tn.fVAGE) Gn TO 180 

mpage = npage 

CALL PaGHOmCH) 

hPlTE (1>UJI, 1000) CHTRr,lCAStMr(lUNlT3(l)»lBl»«) 

180 H^'iAX = H,"A*i'!!lTS(l) 

Tl-AX = TpA + I'..IT.51 n 

viWlTL (KQiJTi 1010) bTK4rA,HrtAX»i:^AX»(NSUBGP{l)»lslt3T 
♦» (NSFGGP(l)tl=l*2)fXlN3S»XSlMBS»XlNCV*XSlKCV 

GO TO b'PO 

PRINT zn^F LIME . 

200 CALL PAGhPRCS) 

IF (I PaGE.EU.MPAGE) go TO 220 

hPAGE s NPAGE 
CALL paghohch) 

KFITt (KOUT.IOOO) C.NTpY,ICASEN»(llMITSa)tIsltO) 

220 1,KaX = H,ia» IhllSU) 

7"Ax = t,.a»ui,i rsu) , 

ViPlTETKOUTf 1030) 
hRlTL(i\C-LT,2oOu) 

NKlTt (KoUTflOiO) Z0 nFtHwAX»1HAX,(n3UBGP(I)»I=1*3) 

*f CMSEGGP(l)*l=tf2)rXlNBStXSlMdStXINCVfX3lMCV 

v^PnE tf'OUT*l030) 

wRiie (KouTtioyo) ;; 

GG TO bflO 

PPINT nEGIoL LINE 

250 CALL PaGH0R(5) 

IF (iiPAPr. .ET.nPAGF) go TO 280 

t-PAGL = wPAGE 
CALL PAGhr-KCll) 

WRITE CKuur,lOOO) CNTPY,lCASENf (lllNlTS(I)tlsi,<0 
250 H'-AX = nut) 

I AX = 7,>/ ( >1 n s (1 j 

,S|(1TL (KLL(,)Otinj 
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OOOlj V 

H(^lTfc(KOUTt2001) 

MODI 

j 

p 

ooni?o 

WRITii (KPJUTflOlO) HEGI0sj»HoAXtTV'’A)(f(MSunGPa)fl = lt3) 

modf 

1 


OOni^l 

*f C^SFGGH(l)»l = l*2)«XlNBS»XSIPBStXlK'CytX5lMCV 

KtPRTl 



ouii2p> 

nRlTt (KuVT* injpO) 

HD DP 


i 

0CO1P3 

W.UTt (KJUTf lOuO) 

HrpRTT 

1 


n pj n i p i* 

c ■ 

HFpRTl 



"LPiab 

GO TO 509 

KFpSTl 


► 

DCOlPb 

C 

RfPRTt 

• (> 


n'jnipy 

C PRINT country LlilE 

HEpRU' 

1 


Ouf'i?n 

C 

RfFRTl 

1 


ooor?9 

300 CAUL PaGNDK(5) 

hFpRTi 

: f 


CJnijO 

; c 

RfpRTl 

t 


ooom 

IF (OPAGfc'.Ea.fPAGE) GO TO 320 

RFpRTl 

‘ 

> 

o^pnl?^ 

. C 

Kf pRT 1 

.V 


Oi/oni 

CALL PAGrlPRUn 

RtRRIl 

, ' 

p 


sprite (H\jllT*iroO) cNTRY,ICASENt(IUNiTS(lJ»iaI,a) 

HFPRTl 


y 

0 u 0 1 ji 

C • . 

RFFRTl 



OC T 1,3b 

320 hYpAX = H^AAUt.lTSU) 

MOUF 

i. 


0b''l37 

T-'AX = T-AaUi ITS(1) 

HODF 


) 

0001 ja 

WRITE (KOi.ir»l} 00 ) 

HFPRTl 

» # 


OOP) l39 

'WRITE iKuI;TtIT30) 

RFPPTI 



,1 1 0 1 !. 0 

WRITE , 1 lioj 

RE PRTl 


y- 

0 0 r. 1 u 1 

•ol'iTE(p->l 0T,2n )E) 

r.Pul 



nooiM 

oKlTE {Ktiill ,iT2p)) CNTRT,H'"'AXfTwAX»CNSUbGp{l)*l = l»3) 

HOOF 

{ 


QuCi lii 

• » (NGEGGP(I)»I = lf2)fXlNBStXSIP.8S»XINCy*XSlMCV 

KEPPTI 


5 

OOOlOU 

C 

Kf PRT 1 

■ i 


01.0 ) (Ub 

c 

HFPRTl 

, 


C*c "I'.b 

500 RETU-'L 

RFPRll 

• 

3 : 

0 0 C 1 '<'7 

C 

KFPRTl 



0 p, r 1 ,(t Pi 

c »»♦ PPluT FOK'iATS 

KTPRTI 


j 

O001C9 

lOOO format (33AfP4ShS U B S T R A T A R t F E K t N C E 0 * T A/TH / 

HFpRTl 

~ 

5 

0 P. 0 1 $ 0 

* l?h COUNTRY ,A«f5x*llHCASE nUmBER» 1 6/lM / 

HFPRTl 



0 P* 0 1 9 1 

♦ 30Xf7Hl R t A/23Xf9Ab/lH /iExtbMNO. lNT8Xt6HR0. OF/ 

HFPHIl 

{ 
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«• RtPHT2.1.7^0513» 61017 t 1 


OOOOOl 


SUbKOUTlNE REPKT2 


REPRT2 

0.00002 

C 



HEPRT 2 

P000C5 

c 

»K* HOUTINE COuTKOLS AM) PRINTS THE HISTOGRAM DATA REPORTS 


RE PRT2 

0 u 0 0 0 

c 



KEPRI2 

0 0 0 0 '' s 

c 



REPRI2 

000 C''b 

c 

♦♦♦ COMMON storage 


KEPRT 2 

f 1 0 H' 0 7 

c 



kEPRT 2 

('uOOOH 


COmi'ON /CAKD1N/RPTyPE»AMN1TS»PARhTK(S) 


CARniN 

oooor'9 


«» 1CASIN(5) .LEYEL*JPAPMfIERR 


CARDIN 

0 0 0 U 1 0 


INTEGER HPTYPEf A0 mIIS,PaRm1S 


CAR'DIN 

(t 0 0 0 1 1 


COMMON /PRICTL/ ;.PAGtfMLlNES.HAXLlNfKCUT,HEA0ER(16) 


pktctl 

P U n 0 1 2 


INTEGER HFAPER 


HRICJL 

r>000l3 

c 



kepht? 

noo;. ! a 


COii'lOM /PRilTlP/ C.'-TRYtREGI0N.70NE.STKATA,ICASEN 


PRmTiD 

Oi'fp t b 


♦i 1 EIlH PfFlLMAK(2) 


PRI.TIO 

n 1 n IJ I 6 


♦ » ITOTYPtMA'-^EMT 


PRiiTID 

00 00 ! 7 

c 



PE'NTID 

n u f 0 m 


integer CnTRY »REGION fZUt;LfSTKATA,FILENOfF ILNAH 


t'.UDF 

oooc:i 9 

c 



K 1 PRT 2 

n -iolpv 


COHROM /HSTOgiV A«7Al,3TuOEV,XMPSUm*SOPSOM 


HSior;M 



»f mPamgi ,TKAoGb(bl),ivT0TLtRANG£SC52) 


HSTC&M 

n 0 CJ ?2 


♦ t . MlilVAl »HAXvAL»0ATPR0(3) »NZkNG-f REK 


hS lOGH 

nonoPj 

c 



hS lOGM 

ncou24 


PEAL MIMVALfMAXVAL 


HSTOGN 

oono? 5 i 

’ 

INTEGER QATPRO 


MS T 0Gb 

00 ''(>po 

c 



Kf |'PT2 

: 

c 

• *A LOCAL "STORACE 


RE PR 12 

0 0 0 U ? b 

c 



REPRT 2 

OOOOp'7 


OIMENSlOH IUMTS(3) 


r-ODF 

000030 


DIMEmSIPN EVAUSn »SUHEVL(S1) 


RfpRT? 

./ 0 0 0^1 


OTMPNPinfJ IOTYpEi?,2),toTYPE(5fO)tNn(a)^NP(45) 


H«-PRT? 

0 ijO 0'<2 


F.00I7AlFi!i:E (NOCD ,10TYpE( 1,1-)) t(MP(I),IPTYPE(l»I)) 


REpRT 2 

Oo0w33 

c 



REPRI2 

Tjoo;<4 


DATA (NOd) »I=1 »4) / 6 nPnplJLA» 6 HTlO.Y «oHMONTt »6hCARL0 / 


KEf’Rr 2 

cooo?'i 


DATA tl;P(I) f I = l»4b)/6H POPO r 6 hL A T 1 OIm t>H SAMPL» 6 nING EH 46 HRCR 

f 

KFPRT2 

nonc^h 


♦ brl' P0PU,6 mLaTI0;i,6H CA'-<S ,6HERR0R *oH 

f 

REPRT2 

nooai 7 


* bM f'0Pllt6p,LAT10(..oH YIPLOtbM tHRORfbH 

» 

RE PR 12- 

00.10:30 


♦ bn POPU jbnLATiQNfbH AkFA fbhEKROR * 6 H 

t 

KFPRr 2 

000039 


♦ oM POPU» 6 hlATIOr., 6 H PkOD'i * 6 mC M ON ,6HERR0R 

f 

HE P R 12 

ooOt'iiO 


^ 6 H t'^0NTEf6r1 CAsL0f6H tOH 

f 

MCuF 2 

0 0 0 C u 1 


♦ 6 h Ml.-NTEtfcH CAKLUfbH PROOU 1 bhC T 1 ON .oHERHOH 

f 

MODE' 2 : 

000002 


♦ • 6 H M.MTEfbh CARLCmoH YIELOfbH f.PRIRfbH 

t 

1 - 100^2 - 

0 0 0 0 II i 


* 6 M »bh 16 H CUliPI f bMOL’iCE fbHLEVEL 

/ 

MOUE'2 

0 0 0 0 ii 4 


DATA JpIRST /O/. MrIRST /O/ 


nC0F2 

OoOolib 


IF (kPTTPF.EO.2) TX = JPaH.'-' ■ 


RF PRT2 

0 0 0 0 0 b 


IE (RETYPE. EO.i) Ia = KPTYRf*2+(JPARM-l) 


KEPRT2 

0 0 0 0 4 7: 

c 



MODF' 

0 0 0 0 0 fJ 


CALL PljNITS(FACT0R,IU;.’I7b) 


HOOF 

0 u n t- a 9 

c 



MODE 

00 00^0 


i'IG'val = NiNV AL-/,';EE»IiliO~, 


mode 

I’ji'Mbl 


HAXVAl, r )'.\XvAi./Kf(-»lpy. 


mouF 

PO 00 O 2 


REP = RLF<.EaCTOK 


POUF 

C0O033 

c 



HFPRT2 

0 U 0 0 f'O 

c 

»»♦ PRINT Ht'AnlNGS 


Kf PRT2 

0 i.i 0 fi I' b 

c 



HrpRT 2 

P 0 0 1 ) b 0 


CALI PaCmiMk C>b) 


tvF PRT2 



IE ( ^^•'E!:T .I'll ,nt gc rn ion 


hfpRlP 

0 0 0 ij 0 A 


>R;tl (iuji.M f liMinj ClPTTPhUtlX) ,I*ltS) ,KAsr.N,FlLNAKn)tflLNAM( 2 ) 

KEPRT2 
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/ 

OOf^O^V 

' 

c 

HEFRT2 

> 

OuOOf-O 


GO TU 1?0 

Kf FRT2 


0 u 'U. ^ 1 


JOO oHITt (KOUltlOlOJ (!PTypt:n»l'X).l»lfb),lC*SrNtFXLNAH(l) 

Hf PRT2 




C 

Kf PRT2 

1 

0 0 D 0 '■ 3 


120 LII<?5 = kRA'JGP/S 

riF PPT2 


OOOCijM 


IF r'^ouMo.AftiGFiS} , ne,o) lines b LINES+1 

REFRT2 


0!jP0i!-b 


HL = 1 I'.hS + 7 

KLPRT2 

i* 

0 (i 1) 66 


IF (HFT>'PF.EIJ.2) NL = 

KFPPT2 


nCno('7 


IF CJfl9ST.FQ.ol GO 10 130 



0 u 't 0 '■ d 


IF (nFTTPF.'it.i) Gu TO 209 

i-.ourz 

1' 

0 0 6 h<i 


IF. (JFaH'I .•■•t.4) GU To 205 

Fi0uF2 


!UT.|;7P : 


IF (,:Fl‘’3T.Nt;.0) GJ TO 205 

ll C D F 2 


0^0071 


. c 

MrLF2 

1 \ 

oO'iCTd 


130 JFI9ST s JFAH'1 

MC LF2 


')Crf,7 j 


IF (EFTYPF.EQ.i.ANO.JPARM.EO.aj HFIRST a JPARM 

nroF2 


n(jC, o7d 


C ^ 

Kf pr?T2 

>/ 

nij0 0 7d 


CALL PANri(,'i.<!ML) 

UF PKT2 


OUf 076 


C 

KF pRl 2 


n 0-0 6 7 7 


LCCLl =1 

KFPR 12 

h-' 

0yO[j7d 


LCOL2 = LCULi+LInES 

KFPHT2 


nM"c79 


LC'Jt.i = Lr,OL2+LIoeS 

KFPRT2 




JX = 3 

hF.pRT2 

1' 

P U 0 P 1 


J“2 = jx+2 

KF.PRT2 

h ’ 

a 


IFCIX .Fu. 9JG0 TO' J40 

,KC03 


Our 0-^3 


NklTE (H OUT f 1020) (IPTTPECI*IX) tI=JXtJX2) ♦LCCtl»RANGE3(LC0Llfl) » 

'p.UUF 

i 

0 0 00'74 


♦ LCUl2,RANGtS(LCOL2)tRAfvGESacOL2*l)»LCOL3» 

KEPRT2 


0 0 0 C *' 3 


♦ nAUC-t.sacOL?) »KANGtS(LCDL3+l) 

K'f FRT2 


0 U 0 C) 6 0 


(.0 TO 1^5 

K( 03 

> 

0 6 f. (' 0 ! 


140 Ll = i cPLT - 

KOOl 


r C r 0 '■• 6 ■ 


.L2 = 1 C''’L2 

KC03 


flu ( 1 0 * 9 


L3 = LcOL5 

pro 3 

5 

OijOOOO 


.iF1T£(kOUT»1025) (IPTYPECIf IX) f l = JXtJX2)»H»RAN6ES(Ll).HANGtSai+l 

' Fi 0 0 3 


n 0 r 0 1 


1 iL2.9Ar;G£Sa2) »9A!JuES(L2+l) fL3,HANGES(L3)»HANGtS(L34i) 

MOD 3 


rU/0092 


1«S CONTINIjF ■’ ' : 

MNU3 

y ■ 

'^l-rcoi 


c : ■ _ 

KtpRT2 


000004 


I I'D = t'no ( oF a‘'GE t 3) 

(■IGDF2 


0u''0 93 


LTnESI = L1n‘ES-1 

K0DF2 


0 0 0 0 ° ti 


IF (IFq.NE.O) LMESl = LINES-2 , 

nnuF2 

i ■" 

^ . 

OUOO'^7 


IFCiX .Fui. 9)Ll.'fc.Sl 3 LINES 

F-nD3 


0 4 n 0 9 0 


l.)0 150 I = 2.H'-.tSl 

KfcPRr2 

• 

f)i)Gu09 


Ll = IcPUl-a-l) 

KfcPKT2 


nor 1 ou 


L2 a LcCL2+(l-l) 

KEPHT2 

[ 

fi 0 n ! r. i 


L3 5 Lc''L3+(I-n i 

HFPRT2 


rv0ir2 


C 

REPRT2 

, ' 

nuoini 


SPRITE (HUUT. 1030) L ^RANGES (Ll ) »RANGES (Ll + i ) tL2-»-8ANGES(L2) » 

KFPRT2 

i- 

0 4 0 1 p :j 


• HA.lGESa2+l)*L3»RA,NG£S(L3)tRANGES(Litl) 

KFpRfH 

r 

OuOi rb 


C 

KEPRT2 


0 0 r 1 0 6 


150 COuTIFut 

Kf PHr2 

i 

000107 


IFCIX ,EU, 9) GO TO 100 

MTU) 3 - 

\ 

000106 


C 

KFPRT2 

i' 

nor 1 ''9 


Ll = U9l 

MnoF2 


rooirj 


L2 = L2tl 

rrpF2 

i 

PfOlM 


L3 = L3tl 

M0DF2 

: ■ 

0 4 0 n s 


C 

KPPR12 


nool 1 3 


4R1TE (KOUTfl OaO) Ll * RANGES (Ll)t ranges (1.1 + 1 )tL2»8ANGESCL2)f 

KFPRT2 

1 

000114 


♦ HA.\GtS(L2+n f Li»RAr,GE3a3) • 

HE PRT2 


0 u n 1 1 ‘j 


IF CI>^o.tR,0) GO TO 100 

pfU)P2 

•. 

0 U 0 1 j 0 


C 

I-I0DF2 

\: 

■:•> M 1 / 


Ll = 1 1 + 1 

FU'iJf 2 

r ■ 
! 

0 >■ ■ 1 1 s' 


1?. = l.sM 1 

M00P2 


! f 


I ft' 


1 1 

S El 


I 
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nuni79 : 

L? = LcOL?+(I-n 

PEPRT2 


OOOIPO 

L3 = Lcnu3t(l-1) 

KFPRT2 


oonifi 

c 

Rrp9T2 


0001P2 

W9ITE (KuUTflljO) LltFVAL(Ll)tSUMFVLCLn»L2»FVAL(L2)tSUHFVL(L2)t 

hFPRT2 


OC'Ol Pi 

• ■ ♦ L3f FVA1-(L30 ♦SUMFVUL3) 

RFPRT2 


0 9 (' 1 p 

c Hi- 

REPR) 2 


nt'^lPb 

250 continue 

KFPRT2 


0 0 p 1 p n 

lECIX .Ftl* 9)G0 TO 290 

M(U)3 


0 (1 •> 1 p 7 

C 

KrP9T2 


con liH'j 

U = Ll+1 

proF2 


POOllH? 

L2 = L2»l 

i-!nUF2 


Ptor'g 

L3 = L3+1 

M(uF2 


non 191 

C 

P0LF2 

■ *. 

OuPl'JE 

IF n''o*t0.1) GO TO 270 

nni)F2 


ODOl^i 

IF CIPl>.E0.2) go to 2P0 

M('DF2 


n (> 0 n y 

c 

RFI'PT2 


nCiPinb 

willTE (KOUff llSP) U»FV4La.l) *SUMFVUU)fL2»FVAUL2)»SU'<FVL(L2)» 

HI PR I 2 


O('0 195 

* L3fFVAU(L3)fSUMFVUL3) 

RPPRT2 


nooi°7 

GO TO ?90 

RFPRT2 

r 

09 019>3 

270 nIUTt (KCJiJTtllon L 1 t F V aL ( L 1 ) » SlHFVl. (L I) 

RE PR 1 2 


n.jO 1 99 

GO Tlj 29 u 

Rt PPT2 


Ov'nr.Pp 

2fl0 r.NlTt (V'UMTfn?)) Ll fPVALCLl) tSUMFvLai)»L2»FVALa2)tSUHFVL(L?) 

RfPRt2 

y 

riifc"! 

2'5U N'<ITc. f*'Oil| 

REpP.l2 

F 

nun2',7: 

JX = E;pTYPt-l 

REPRT2 


oun?r,3 

NHITt (kJuT» 10/0) (iDTYPt(HJX)f I=l»2}fXMVAlrST00EVtREF 

RFPPT2 

1. 

OCOcjOil 

»* (TUt'lTd(lJ»J.= l*3) 

MOCF 



IF (KPtVPE.FU.3) go Tn 300 

hf PRT2 


nop?.r<i, 

W91TE C'^OMTflOSO) X''PSU-.|,SUPSUk 

REPHT2 

» 

n » n 7 

300 V.PITt Cl-'Otn tl09n) HlNVPl. ,PaXVAL»nTOTL 

REPP12 


nt '■.rPH 

«WIT(; (KMit , 1 Inn; c‘’I;;y 

prpRT2 


000209 

IF (NptYPE.Ej.3) go TO 310 

MC’DF2 

\ 

j 0 

IF (LFVF1..LT.3) ^PITh ( xiJiJT f 1 1 1 0 ) REGION 

RFPRT2 


nonpi 1 

IF (LPvFL.t'J. 1 ) UJITE (KUUTtll20) ZOnF • ■ 

REPRT? 


0002! 2 

GO TU 3?0 

MPUF2 

) 

0 1. ^ 1 i 

C 

.-iCl/F2 


ntf 2 1 u 

310 IF (LEVEL. tn.lj pDlTt (KOOI.llUlt) 

M0UF2 


nonaib 

IF (LEVFL.L9.2) .-,1 ITE (KUUT*llb5) 

M0DF2 

> 

000210 

IF (L(,FL.E0.3) '.f'iTt •(K01IT»1190) 

M('0E2 


noOc.’) 7 

320 cPNTlf.uf 

P.0UF2 


ouP2ia 

IF Clx.fL'.l.OP.OAlPKDdl.EN.OO GO TO 500 

MOOFI 

> 

000^19 

IF (OAT^Rnd) .LT. i) /irjlTE (KuUTdt35) OATPROU) 

M(.'l)F2 


(im:'220 

IF (DA tPr(0( ) ) .GT .’>9) 

MOPE 2 


00C221 

♦ GhItE (KOUT , 1130) nATP90(2) »0 aTPH 0(3) fOATPRD(l) 

PCUF2 


nuOL’22 

C , i 

RE PRT2 


009r.'2i 

500 RF) UKij ; ; 

KEPRT2 


0Cn25,y 

C 

RPPPT? 

y 

0002?'-, 

c f** formats 

Rf PPI2 

]■ ■ 

09022b 

C 1 : 

RE'PR12 


000227 

tooo format d9X»5A6/lH /12H CASE NUMbER* 16/1H /IOH FILE NAMEf «X.v-2A«/ 

KEPRT2 

} 

0002231 

» i IH ) 

RFPRT2 


non?29 

lOlO FORMAT d9X.5A6/lR /l?H CASE NU-MUER • 16/ 1 H /lOH FILE NAHEf-«XtA6/ 

kEPRT ? 


Ou'ViU 

» INI 

REPRTS 

> 

Og.;2il 

10?0 I9KMAT dOXtHWhANGt OF » 3 A 6 . 1 h.3 » I i , 1 OH LESS TriANfF9.5f 

hC-UF 


non^<2 

f 2d'!,Ft'..3dM TUfFO.'i)) 

Rl PRT2 


0u023i 

102S FnRM«T(10X.&rtr'A'’GE )F,3Ab,lH&,l3,F0.3,3H T0»F«.3t 

E0D3 

i 

0002^9 

12(19. FB.ifiM Tu.F'O. d) :—i 

RCD3 


nOO^ib 

1030 KiiO'AT (3NX.i(l'i.Fh.i,iH TU.FI'.T)) 

RFPRT2 

1 

ni ')2'>6 

) ')90 FPR''AT (303. 2(19, ER. 3, 3h Tu.Fb.3) , I9,9ri GP. THAN,FI0,3) 

PLDF2 

'f 

01 <•,' 17 

labO M'l- 'd (iPt-Rd'l.f .1. i, i,l T..j,M1.d) 

iiOljFR 


Iv «r '0 

luAu I-IMO AT (3/-X , ri,l il.it IHt(9,l) 

UP OF 2 




I 

1 

I ‘ . 
i 

! ^ 


( r, 

I 

■ t" 

! 

1 

i (I 


I 



• i' 


I c. 







ll; 
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0002‘^9 

ntingao 

nuoaul 

ooraiii 
O0^2«-4 
|)0')^aS 
n C •'! 2 a b 
n a n 2 7 
00 '2tb 
n0-i2'(i9 
0 0 ? 5 0 
ou''asn 

nor?S3 

oyr ^r,j 

0u''2[-fc 

n002S7 

00<^ZS'A 

0002^19 

po^afo 


1070 

lO*'!) 


for:-<at 

FOS!!AT 


1090 FOK’KAT 


1100 
1110 
1 1?0 
1 no 
1 

1 t'lO 

1 l5u 

in.o 

1 I 70 
1 1!<0 
1 IPb 
U90 
1200 


FORS'AT 

FOhvaT 

fOK-'ftT 
KOKMaT 
HIRkaT 
FOR'iAT 
f nK» ,>. T 
FOR”Ar 
F''ik:>AT 
FDkFAT 
FI'.W^aT 
FORI'AT 

fcfU) 


(IIH DATA TYPE »2a 6»5H MEAMtF6,3»22H (PCT) 5T0« !»• 1ATI0N»M00F1 
F6.3,10H CPCTY KFK. V aLUE » F 1 1 ,3 » IX t 3A6/1H ^ HCDFl 

(2/lXf 2?in't A('i OF POPULa'TICiN SUH*F6.3t tlODFl 

22H (PCT) 5TD. (jE.V I AT inrii 

IPH uF P0PUL4TlriN SU.-!tK0.3»'3H (FCT)/1H ) Mt'DFl 

(20X» RtAul.'<(;«FeAi»a3h CPCT) maximum RtADlNC* HCOFI 

FF.3t5oH;| CrCT) I.Ur'lJLR OF hKADlKGSt Ib/IH ,) MODFl 

f23x«l2H CDuMPY *A«) MDOFl 

( U-+-.a SX.AOHf MiiMf T6) MCi/Fl 

(lh+fb3AnP20.,A»T9) ' ■ MOOFl 

(lM+tb3x.l‘v,lVr*'ICT10R DATEtlo*lH/tl2f . MOOF I 

( IMt * b‘iX • 1 Ti'Olf'-wlf'OO.’i tiUKBtP»I2) M0DF2 

( 1"X » 1 MiHlSTOOPAl OaTA »i(IAf lH.tFV.3»F10,3)) KFPPT? 

(i'^X«iCI''»ln.,F9.3*El0.i)) , KtPRT2 

(i:iX»I-'Jf P-'..'"9.3»F10.i) 

(3SX.2(I-U iM. tF0,3'‘-lo.3) ) 

W'l’ ♦♦ 7.U‘.'b. (.'AlA tF») M0UF2 

(U'+.AbXti9.iY*t UCniOf- OAlA *4A) '• MCDFE 

nH+t«BXt2-Qri*44 cOUnTKY OaTa ♦47) ' M00F2 

Oh ) t^EP9T2 

HFPPT2 

KtP«T2 
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0 0 V>a 

t'-f REPftT3ll/76C'3irfib9153 I-OJlirH't tP'.^.’v' r f. A'' , ,3 . p?h (PCT) OTfi. OOvtAfl'iN 

lIlfHiFl 




• 1 1 I’M. v/ii.i. ? ,r 1 1 lx ..^AO/ 1 n 1 

1 

oonofii 


1 

SUbMOOTif'P ' »fc’PHT5«.' T I'-'I. o'l’.IJ'.T. 

HEPRT3 

00 Tons 

C 


<( c . • (.•> I) '• ip. 1 < >; 1 .'.TiC;- ♦ 

HPPRT3 

0 !) '' c! 0 3 

■ C 

THIS HUUTIb'E iPKTijTfMHi-:! (;540Ut.‘lCY ’ UP • Sahpl K‘ 6f(i-PtNTS A.COUISlTIONi 

Rf PRT3 

"0f*0C!l 

C 

1 (. -1 1,' 

! ni. 1 'm 1 1 '! r j •• '..1 I. <; » •- ti. >. r V' IMXiUM 9lA!.Mi^'G» 

HfPRT3 

0 ij n i; r. 

C 


• ('.'.fP'.'- CrDl H' (JK. UViH 1 

PPPM3 

n (1 ('006 

C 

M#* 

tOIV-'Oil STrtAAiK '-'ti ■ I'-'i' 

HEPM3 

0 0 " 0 i" / 

CMH 

1 • - ■ 1 M • ■ , 1 f -T ,1 , 

RIPRT3 

O0'’cr-l) 


1 i.'i 

rilHUdH: /l*RTF.TLV«4PAGfcii:«!],lO'tS»HAXLIN»hOOT,HhAOPRC16) 

PPfCIl 



1 1 .0 

It'TFOf l-. f AEAi^CO ■ ' T' ■ T .‘t i.r ir i '• I * . : " M ' / • 1 ? , j >|/ . T pi 

pK'rr iL 

0 

Cl ! 'fa 

( • . 1 7 ic - r •• 121 , - 

HEPRT3 

(lOnc;? 1 


1 1 ■! 4 

CObPOK, I'PHMIC!/ O.STHy«i<FfaTOlfZU'i4«SThAr**ieA5EMo.3l) 

Pf-KTIO 

00 noil <i 


If. II 

♦ v’ ' ' • :1'I |» t!;? •.nVrifc>'3'-<2) > 7" ^ 

PM.TIO 

noni;|i 3 


! 1 ‘M 

♦ t- 1 ' 1 V iTc.TVsh'AV|;vf 1 , 

PRf/Tin 

nyiifrl 4 

C * ' ' “ 

i ; 1 .1 f 1 « . 1 1 (1 . 1 . ' • , . 1 . n » 

p!'< TiD 

0 U f 0 '1 6 


t 1 1 .1 

in.H'h.bTHAIA*Plt£NO»FILNAH 

HOi/F .. 

n (, n 0 1 6 


* I 

COH.Muil, /rtl't‘U^V^HtG3tbTUC.iO(16) 1 « *'*) 

liKU-riH 

nUi'oii / 

c 

1 1 , 

,1 ,1 1 ' . ( f . i . . • • > • , I . V . I j, t ) 

RE PR f 3 

nun,js 0 

c 

! , « I 

M 1 I > 1 1 1 

HEPIM3 

0 0 0 U i1 V 

c 


LOCAL storage 

Kf PRT3 


c 


1 ■ ■ ■ 

RERUTT 

nonoPl 



DATA JkIHST /0/« MpAGF /O/ 

Hi cnri 

nOncP<i 

c 



KLPR1 3 

ri'no?3 

c 


CHECK FOH FIRST TI'^E THROUGH 

HFPHT3 

n C 0 0 ? 0 

c 



HEPRT3 

00 no PS 



IF CJFlRST.A-E.U) GO TO 100 

HFpRTS 

n n P 0 

c 



HFPPT3 

O'tf'OOT 

c 


SAVE FIRST Page GUNiER 

REPR 1 3 

Pocupd 

c 



RFPRT3 

ooncp9 



NPAGt s.HPAGE+1 

HFPST3 

000030 



JFIRST s (IPAGE 

REPRT3 

n 0 n 0 3 1 

c 



KFPRT3 

oor 032 

c 


PRT'T PAGE headings 

RFPRT3 

ruM> 0 H 3 

c 


• ■ 

HFPR r3 

000034 



CALL pPAGhOHI-Pl 

RFPRT3 

Ou''0 



wRITt (KTjgT.lOOO) ICASEMtPlLNAM(l) fFlLNAM(2) 

REPRI3 

0 0 0 0 3 r. 

c 



RFPRT3 

00003/. 

c 

♦ ** 

PRINT TOTAL LIHE 

RFPRT3 

n0O0'3tJ 

c 


■ ' 

HPPRF3 

0 c n 0 3 9 


100 

GO TO (t50»200»300) tlTOTyP 

RE PRT3 

OCOO'-O 

c 



RFPRT3 

OOOool 

c 

»»* 

PRINT zONf LINE„j 

KEPHT3 

0 C 0 0 0 2 

c 



REPPT3 

0 0 0 0 3 


150 

CALL PaGHI PC25 

E.COl 

OOOOOO 

c 



Kf PRT3 

OOOuo'j 



If^ (NPAGt.hn.HPAGE) GO TO 480 

K! PRT3 

00 004 fa 

c 



REPRT3 

P00047 



KPAGE = HPAGE . 

KFPRT3 

0000«tt 



CALL PAGHORta) 

pool 

000049 



'..RITE (H Ji'TflOOO) ICASENiFlLNAMO) tFILNAPfZ) 

Rf PRT3 

OOi'o', 1) 

c 



H! PRT3 

01 Ou'-'l 


100 

V(PITt(K0wTr2&nu) 

hta'.l 

O00t,<2 



aR1TL(kOuT » 1CI03 ZOnEiNSEGS, ( blOCMB(I) tl=l»16) 

HCOt 

0000S3 

c 



KFPRT3 

0 u 1) S 4 



GO TO bOO 

Rf PRF3 

0 0 '1 0 s b 

c 



REPRT3 

0*J-lO'i6 

c 

♦ ♦♦ 

PRl-Jl pFGIOL LI^E 

REPRT3 

n„ •'.,'>7 

c 



RFt-RT3 

■'1 


200 

CALL I’AiiHOnC'j) 

Rf PRT3 


i f 

I 

)■ 

: < 

i i 

» 

<? 

’ <- 

: < 

« i 

» * 

i i 

• i 

' <’ 

I 

: 4 

i 

4 

‘i 

! « 

! i 
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ooncs? 

O0C060 

OUi'Cftl 

0000^2 

OU'^OfiU 

O^Ciiho 
nunoA? 
Oi'OOfcB 
nur'O'A^ 
'iu''070 
Q'JPG7'1 
nynf;7:2 
0'JPl7i 
oOf u7'i( 
00007b 
0 UO 07 o: 
00007 / 

0 0 P 0 7 >i 
000079 

ouf or-o 

ODO.iir 1 

ooncf-2 
OoOOPi 
000079 
OOOOPb 
nO^OPb 
000(1 A/ 
no 007b ■ 
oonoP;9 
OOOO'OO 
0uO(,91 
01(0002 
00' .Jf)i 
0Ui'!C'b9 

0 0 0 0 b 

nuo(iP6 
0O''0P7 
nf;''OPH 
000009 
0 0 0 1 0 0 
0 u 0 1 0 1 

0 0 o 1 C 2 
oooirj 
0 0 01 09 
000 1 o5 

COO 10ft 

000 ic7 
nonino 
coo 1 09 


IF (NPAr.E.En.MpACE) GO TO 220 

I 

MPAGt = NP/\GE 
CALL P»Ohn-((25 

ipRiTt (KLUTtlOOO) ICASEMfFlLNAMtn fFlLNAM(2) 

220 WRITE (KOUTtlOnO) 

WRITE (KOUTf 1030) 

ARITt(EOUT*?00i) 

WRITE (KULTMOIO) KEGION'fNSEGS# (BlOChB(l) *1=1*16) 
wR'ITc COL'UT* 1090) 


GO TO 500 - 

»»♦ PRIM c'lOf'TFY LIliE 

300 C'AlL PaOHDIUS) • 

IF (iPAGt.EG.I-iPAGP) GO TO 320 
CALL PaGMDRIP) 

WRIT! (WuiJT*lOOO) ICAStNiFILNAMf 1) *F1LNAM(2) 

320 WRITE (KUliT. 1090) 

(.RITE (WUIIT.103O) 

WRITE (LUL'T* 1030) 
wRITE(kT’OT,?002) 

write (KO'II f lOr;Oj CNTRTfNSEGS* (B10C>*0(I) *1 = 1*16) 


SOO RFTtiWT! 

*♦» PPIL'T- pnhPATS 

'jooo format (UAtSOhF REoljENCY OF SAMPLE SEGMEN 

♦ : 2bH A C a U I S. I T I Q N S/IH /7X*11 HCaSE N'J.-'3tR*Ib» 

• 9X,llhFILt name f2A9/lH /OXflOMLO. OE BlO-WlN'OOW* 

» 26h CCdblNATIriNS (IN PERCENT) /7X 1 8 HSEGMENTS/ 

Y 9Xf PIOibEIu 0 *bx * 1 Ml ♦ bX * 1 m 2 rSx * 1M3; .'X;* IH/i I 

* /iAf96Mi.-2 1-3 1-9 2-3 2-« 3-9 1-2-3 1-2-9* 

* 20H 1-3-9 2-3-9 l-2-3-9)_ 

1010 FOKMAT CI5*iytlX,lbro.2,E7.2) 

1020 FORMAT nXiAAtX*'* IXf 15F6.2 iP7.2) 

1 030 EP.TMaT ( IXf IHf ibM**R»»^) ) 

109C priR^AT (IH ) i 

2000 F'''R'-‘AT(5H ZOuF) — J 

2001 EHRMATibH PEC) 

2002 FC1RHAT(5M COuN) 


REPRT3 
REPPT3 
KEPRT3 
KFPHT3 
KCIJI 
RFPRT3 
HEPRT3 
l<rpRT3 
REPRT3 
MODI 
hPpRTS 
KFPRTi 
P.tPRT3 
RF.PPT3 
RFPRT3 
REPRr3 
REPRT3 
KEPRT3 
HFPRT3 
REPRT3 
KE L'Mi 
hPLI 
RFI’RT3 
REPRT3 
REPRT3 
RFPPT3 
REPRT3 
MPtil 
wr PRT3 
REPRT3 
REPPT3 
HEPPT3 
HFPRT3 
H1HRT5 
WFf'RTi 
T*K'-PRT5 
WEPRI3 
KFPRT3 
RFPR F3 
KE PPT3 
KFPHT3 
MCOl 
KFPRrS 
HERRF3 
HEPRT3 
KFPRT3 
MOUl 
MODI 
MOOl • 
RFPRT3 
KFPRT3 


P£ 
a a 
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C t._,- SAMERR, l,7<>0513f 61005 



000001 


SUURO'JTiNf: SAT'tRR 

samerr 


00^002 

c 


saherr 


OOOOOJ 

c 

♦♦♦ tlCUTIfE RRUDUCES THE POPULATION SAMPLING ERROR REPORT 

samerr 


0 0 <10 "4 

c 



samfrr 


ou.1005 

C 


SAmFRR 

> 

0 0''0''6 

C 

♦ COhI'ON storage 

SAmFRR 


fi 0 0 0 r 7 

C 


SAmFHR 


oir^ooa. 


CQHMON /CAHOrV.HPTyPEfAUNTTStPARMTRTS) 

CARDIN 

»i 

0 0 0 r 4 


♦, ICASlM(5)fLEvEL»JPARM»IEHR 

CARDIN 

' 

0!.'-’0!10' 


INTEGER HPTTPEt4UMTS,HARRTR 

CARDIN 


oor.oil 

C 


SAliEKfl 


OC'-012 


COMHOf’l /K&NGE / STARt,lNIVH.,EREAKltlNTVL2tBREAK2 

lUnGt 




», IMTVL3,ST0P 

range 


0 1, JIM 

c 


K A >N n E 

3 

O'; .■'01 5 


REAL INTVLl ,TfsTyl.2,I'lTVL3 

range 


0 1 C 0 1 6 

c 


S A !•) E K R 


000017 


COKMON /FILRIiF/ FlLEMi(?)flCNTHYfIREGN,l20N£tl3TRTA 

FILPIJF 

J:; 

0 0 0 0 ] y 


♦, IStSTAtICASE,RXStG 

hOoF 


OOOulV 


♦t K70f(12S) 

ht'OF 


0 „ 0 0 ? 0 

c 


FTlPuF 


O'; (02 1 


OlnENSlCN K'-'IIKO} • 1310.10(4} , iPRDaT (14) *PRDaTE( 6) »XEPW(«0 tXEYLO (6) 

HLnuP 


00 00? 2 


»t AFVAI (23 

FILBUF 


nono?3 


»t t'.CERK(loO) 

MODF 


00 0 0.24 

c 


FILPUF 


''Onf.?b 


HEAL RCREFfHCtRH 

HOOF 


n!(00?6 


I'iTEGER filesh,phoate 

FII.RUF 


r r 0 p. 2 7 

c 


f TLOuF 




equivalence (KbuFcn * nseg*nt.kwin(i)) 

EIL5UF 


P0!,iO2'> 


♦t (KHUF(?3 .IGPUO,|.STRAT,NREGS) 

•NOOF 


oor.Qio 


*» ChHuF,(3) »XNPp»-UTUT) 

MODF 


0 0 '' C 3 1 


*v (nP.jE («3 » .ARt AfOH.O 

MODF 


oGOoJE 


*» (i-fliETSTfXTP.if'itH-;) 

kogf 

5 

Co053i 


♦ . f rvPljP (A3 ♦.i« IPlOv.n ( 1) ) 

MODF 


00007 '1 


» * (OPl|F ( 7) » tA) 

MODF 


oo-^OSb 


?» Cioijl (03 iXS'iTP..) 

mODF 

id 

0U0C36 


* * (nf'i,,K93 f '(CVR) ■ , 

P('DF 


0U'>077 


»» (OPuF (UO iXTOAltlPROATCD) 

MC'DF 


000070 


♦ f {K0(’F(1 n fPnOATEd)) 

M( DF 

3 

oOOuOV 

. 

** (afmT (1 n fXF.R., (1)3 

MODF 


otOCOO 


♦ f (7Hi.p(2n tXEmnn) 

MODF 


oLoom 


*, (oni;R:(?4) ,APvaL( 1) f.'iCREF) 

hOGF 


0 f 0 0 02 


tf (A«oFi(?5) fl CEKR(in 

MOOF 


OOOu/li 


T» (RPuP!(?7) »> TYlO) 

I'lOOF 


OC00O4 

c 


samerr 


O0QO4S5 


COHPOM /PRpvTl-)/ CMrRr»KFGl0N»Z0.NtfSTHATAtICA8EN 

PP.NTID 

k";,' 

oooowo 


♦ , FTLE.iOf:FlLNAri(2) 

PRNTIO 


000047 


», IToTYPf-'iAMPMT 

PRnTID 

P 

000043 

c 


PPhTiD 

1 .■. 

OUO0O9 


nTFOPR CKTRY»RFGT0 s,70HE .STkATA,FU ENO fFILNAR 

liODF 


0 1 0 3 4 0 

c 

- - 

SA-^PK'R 

3 

ni*A/|C. j 


COMPOS /HSrOGP/ X"VAL,STl.'nEV,XHPSU.MtSmSU‘l 

hSTOGH 

■ \ 

OOOOS2 


Tj InR<.nC,F»IHA,;GE( 51) ,hT0TLfKANGES(52) 

mstogh 


OOQOSi 


»f flTNVALtMAXVAL»DATPHD(3)tNZHNG»REF 

HSTOGH 


' 0UO054 

c 


hSTO(;M 

! 

0 C. 0 c 4 ‘j 


RFAI. MTuVALf PAXVAL 

HSrOf.H 

1 

ooo* SO 


IMCCF.P OATPHil 

liSIOf.M 

D 

'i.c ( 

c 


SAi.f RR 

1 

i . 


/iATLitl/ GAICH 
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00005V 

COMMON /REAmjC/ KFAONG(5600) 

' 1 ' 

HOOF 

0000^0 

c 

' ■ 

MOOF 

OOOOM 

OIMENSIDN Cl EKAdOO) tCLEPROdOO) 1 

CLATECdOO.CLPTECdOO) 

MOuF 

0 0 0 0 f- ^ 

♦ , C L A T C d 0 0 ) CtCP-Tx C-( 10 0 ) 

- 

MCDF , 

ODOO'-i 

c 


nODF 

nun j»>ii 

ECUIVAlEIvCE 

(R£ADNG(5001)»CLEWAd)) 

MODF , 

0 u fii; f- b 

»t CKFAnM:GC510l:),CLFPRO(l))fJ 

(READMG(520U KLATECID) 

MODF 

')(!'\Ch6 

*f (RCAOPOlbSOn.CLPTECf n)» 

IREAOMU(5401) .CLATKCd)) 

HOOF 

ounofi? 

*, (kfADi-lRlSSOUtCLPTWCd)) 


MOuF 

0 J iCf-O 

c , 


SA.mErR 

OU'j'jAV 

'C . , . 


SAfiEKR 

COO070 

, C LOCAL storage^ 


SAhERR 

oC'OuTl : 

: iNTECEH SBSThA 



Oun(.72 

•C ■ 


SAHERR 


(jAfA AnFAFS 710219,712/ 


gamErr 

(•» . . r fi*7 .4 

10 e 1 


M002 

0(.n075 

5 C0M1H;E '■ 


hCu? 

0 1, n j y (, 

UO lu I = lt3200 


SAMFRR 

OOC 077 

10 REAMHGcI) = 0.0 


SAr ERR 

0u007fl 

c 


S A M E R R 

nuno7V 

J = 0 


SAmF rR 

ni; U»Pl) 

K>'f) = 0 


SAf.FhR 

OvroPl 

UTOTL =0 


SAkErv 

Oi-l'CfU 

C . 


sakerr 

0 0 r 0 0 3 

DO 20 I = ItSl ' 


5Ai:=rR 

0 0 n c f- a 

20 IPAN£.E(I) = 0 


SA,-FRR 

nonypij 

,r 


SAhERR 

r u n u p 0 

DFLSo r 0.0 


hnL'2 


UELrKP =0.0 


liOi)? 

Ou.)0n.J 

Kt P = 0. 0 


M0D2 

0 M n c 5 9 

M.lNVAt. = 1 .FIO 



n c n fj O 0 

7.AXVAI = -l.ElO 

9 P 


nui'ool 

t.f:L5u z 0.0 


h002 

nnn.)C2 

IFClr, .FD. 0)GO TO 50 


M0C2 

nor C93 

C 


5AMERR 

noofiou 

C *♦* GET header vtCOVO 

9 S 

SAMErR 

ni'Ouoi 

c 


SA|,FRR 

n u t 0 9 0 

CALL FILSEU(IH) 


SAMERR 

CC0097 

c ^ 


SAMFRR 

nur oQfJ 

IF (LFpP.ME .0} GO TO 500 

P 0 

SAHhRR 

Ou'/uW 

C 

S fej . 

bAHERR 

OUMOO 

^ ICASEN = ICASE 


SAi.ERR 

00 Old 

ETL‘.AMC1) = FILEN”(1) 

tS K 

SAMFRR 

000102 

F ILKA!' (2) = FILEnM-12) 


SAmERR 

0 0 0 1 0 3 

f,A,-,F>.T = 0 


SAMErR 

0 U n ;i n 4 

c . ■ . , 


SAMERR 

00 7:1 05 : 

IH a 'OK, " 


SAMFRR 

0 JOl C6 

"C ^ ' 


SAHFhR 

0U0m7 

C ♦** GET DETAIL RECORDS 


SAi-iERR. 

n u 0 1 0 f' 

C 


SAMFRR 

Ou'ii nv 

50 CALL FiLGrOflH) 


SAMFRR 

Ovf 1 10 

c 


SA^iFRR 

OO^'lll 

IF (IH.LT.D) Gu TO 200 


SAmErR 

0 u 0 1 1 2 

C 


SAMErR 

nunii3 

IF(KAM .GT. 0)GO TO ICO 


MOD? 

n 1. f 1)4 

IK'SATcH .EO. -?)CU To 210 

- 


0001)5 

C 


SAMFRR 

Oi'iish 

CKTRlr = ICkTRY 


SAMERR 

ov. . 1 W 

FRiT^i' = IkTGK 


SAMFRR 

r.'-mt 

Zr-„F = 


SAMI RH 
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OOnilV ‘ STKATA t ISTRTA 


noni? 0 i 



SD5TRA 6 ISRsTA 

ncoiai; 

c 



nor^l?^ 



GO TO l20 . 

0 C 1 ? i 

c 




c 

TEST 

FOR CHAfaClE I'l I.O. ARtA 

00P1?5 

c 



"001?3 


100 

IFnSO.RTA .wt. SbSTRA ,OR. ISTHTA .ME, STRATA)G0 

0 u r 1 ? 7 



GO TO (105,110,120)* level 

0 u D 1 ? K 


105 

IFCJilOfaE .HE. ?QiE)GO-Tn 200 

0i/,‘'l2R 



IECIaEGI .mF. REOIoS'lGO TO 200 

OCRlSi) 



GP TO 1?0 

or(U31 


110 

lEClRFc.li .ME. KEl,iION)GO fO 200 

0 JA 


120 

LELSO a DELSB+(XTPaI-XTPR) 

nc.1133 



KXK = l\Xil+ 1 

0 u A 1 7 R 

c 


■'■'S' 

n 1 , r, 1 3 b 



GO TO SO ’• • ■ 

noi)l3R 

c 



0S0137 

c 

• *< 

CHamGE In I. d. area 

0 0 n 1 3 s 

c 





?00 

COnTI-uE 

P 0 c 1 ^ i 



1E(RX‘' .EO. 0)GO TO 210 

'nun 1 ai 



xt A = mA 

(1 0 fi 1 1; a 



XN = M , 

0 C 0 1 3 



XR = APEA/CXMA+aREAPS) 

n 0 0 1 /Ml 

* 


X’:R = X'”'XH*AREAPS 

P u P 1 ti S 

c 



n u .1 1 /j fa , 



J = ./*1 

-I L f r> 7 


■ 

XM = I'XII 

nofal-S • 



REApfaGCJ) = ijELSH/XM + XMH 

OUPl/iR 

c 



noo 1 SO. 



HINVAL B AHIN1(PI9VAL,KEADNG(J)} 

P 0 0 1 S 1 



MA.XVAL = AHAXH^AXvAL,REAONG( J) ) 

oiiriP? 

c 



P.i'- isi 



DELEKR = rtl.tPK-U'E'Ar'MGCJ) 

PO/ISR 



KEF = RtF+XrP.-, + AMR 

nor 1 RS 



CEL3U B ntLSR+RLADNG(J),**2 

nu 0 1 S S 

c 



0PP1E7 


210 

contiaue 

p r, P 1 s 0 



DE'LSO = 0 • 

'uir iF)9 



X. 

II 

o 

'll' P 1 F ij 

c 



n 0 n 1 fa 1 


■ 

IFUH .LT. 0)G0 to ?50 

nun I fa? 



GO TO (220,230,240) ♦ LEVEL 

00falfa3 

c 



nfuifa'4 


220 

IF ( IZCNE .nE, ZONE ) CO TO 25o 

PO'AlfaS 

c 



0 C P 1 fa fa 


230 

IF (IREGN.tO.Rt-G-IPN) GO TO SO 

0 0 'll fa? 



GO TO 250 

fafaPlfaB 

c 


. 

n!j A j f. 1 / 


200 

IF (IM.FO.U) GO TO 50 

P',;il7v 

c 



II 00 173 


250 

IFU .1:0. 0)Cn TU 400 

PC 017? 



MUTL = J . 

nuo 173 

c 



n;, '170 



DO 300 I a l.inOTL 

0'/'V7'p 



PCI'FkP a 0.0 

Pfa’ 1 7t. 



IF (= t.F ..,F. O.UVrCUEKP a 1 00 . »RE AOnG ( I ) /REF 

Pi I7f 



l^M h = l,..R.lMuF 

Pv‘ 1 7,‘) 



IF CPrill HR.VL.O.) C.O TO 260 


I 



SAMERR 

sakerr 

SA^ERR 

SAMERR 

SA'.|FrR 

SA.’iERR 

SAmEHR 

t'.CD2 

SAKERR 

kou? 

HCU? 

S A ^! E n R 

MED? 

SAttERR 

SAi’ErR 

SAMERR 

SAiiEhR 

SA^ err 
SAf'ERR 
SAt'ERR 

hr.02 

Mr II?. 

r.ni;? 

SAhERR 

SAmERR 

SAkERR 

SAM, ERR 

SAtiFRR 

SAmERR 

SAM, ERR 

SAMERR 

SAM, ERR 

SA.mERR 

samerr 

SAr.E rR 

SAM.ERR 

SAkFRR 

SAMERR 

MOO? 

SAmERR 

SAM.ERR 

SA,>-ERR 

mod? 

SAmFHR 

SAMERR 

H'HE? 

SAmERR 

SAMERR 

SA^FKR 

SAMERR 

SAM.ERR 

SA“ERR 

i'irR,? 

Mt'O? 

SAMERR 

SAKERR 

mCR? 

MfO? 

SAi.EKR 

SAi'-.FRR 


{ 

i 

' r*:- 
» 

I 

; c 
o 

E 

i .. 

1 

i e 

I 

t 

1 f*. 

I 

I c 
■ I 

t.'l 






. V 


►tI in»I 

(u oo; 

{:! 

« ■ 


nt n 1 7 9 ' ' 

c 



SAMERR 

OoO IfO 



IRANGF.(^ZRNG) = IRANGr(NZRNG) + l 

SAhtRR 

Oi/f'IJ’l 



GO TO 30 0 

samerr 

otolP.; 

c 



SA.ItHR 

OCClpi 


260 

IF CPCDFK 9 .Gt.KAMGES(K+l)) GO TO 230 

SA'-lFRR 

n u ■’ 1 U 

c 



S A M F R R 

PU'i-B : 



IRANGE(K) = IRANGE(K )+1 

S A M c H R 

OOOlPb 



GO TO 3 PO 

SAMERR 

nCPlpjr 

c 



SAMERR 

npPlPH 


2 P 0 

CO.mTIOuE 

SAmErR 

0 !^'ViH 9 


300 

CO.'iTl^uF 

SAMERR 

OOP 190 

• c. 



SA.nERR 

0 0 Pl 9 il , 



TJ = tJTOTL' : 

SA f'F.RH 

Cl M'?ii 

■' V 


Xf'VAU = 0.0 

MOD? 

ru.iin 3 



lEC'EF .\F. 0 . 0 )Xf 1 VAL a 100 ./(TJ 9 RtF,)*OELERR 

11002 

9 U liS'M 



STOOfcV = 0.0 

h 002 




IF(Otl EP«»f?/ 7 j .GT. dELS< 3 )GO TO 390 


fi>. f'lfo 



IFCJ .gT. 1 kFF .Nt. O.OJSTODtV = 100 ./REF*SQRT( 1 ./(TJ- 1 .) 

M 002 

nr, [o/ 


1 »(r.fl.SC- 1 ./TJ*ri£LhRR** 2 )) :: , 

MOC 2 

nuriPo 


390 

X"F,SO.‘: = TJ*>. IVaL 


oopn-? 



SOFFO*-: = SUinCT UFSTDritV 

SAMERR 

n „ ^ 0 

c 



SAsf SR 

nnrf;"! 



CALL RhF«T 2 

samerr 

0 ^)'' 2 rd 

c 



SAm.ERR 

OCOSri 


UOO 

IF(Im .EO. 0 )G 0 TO S 

6002 

OOf'c ’94 


soo 

HtruKfj 

SAt-iERR 

ObPP’Al) 

■ c 



SAMErR 

POCaOb: 



£60 

SAi.ERR 


so 

hg S3 

•n 53 

SS 

■§ ^ 
M ra 






r 
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I ‘ 


0 fc^rsUBHfF, 1,760511 » 55116 , I 


OOOOPl 

oo‘Tor.2 

oonopi 

OuPOC'l 
01<P|0''5 
0 0 0 0 C o 
r>jf!007 
Ou'Voc.B 
ru; 0 0 0 “7 

Oi'OOllO 
0 V 0 fj- 1 1 
0 u P 0 1 2. 
OCPOili 
p jpai‘'» 
pcmoj 5 
p t' n 0 J 6 

0 p " 0 ■’ / 
p P P 0 il 6 
Plipfill 5 
PpPl'rO 
Pj’'0?l 
CCOOPc 
PCnupS 
OOPCP“ 
PPCOp^. 
OpPrjpb 
OLP?p/: 
OOObpb 

000 oP9; 

P'jPO'lU 

pypnisi 

p 0 r c 3 J 
01^635 
POP039 

0OP037 

nuP03o 

O', f 039 

'1 u p c ra 0 
PpPCUl 

no''0»2 

P0P093 

ncipjab 

COpo?j5 

OP>'|0«6 

POCOa7' 

00f>(3«8 

AuOQyiO 

nui'O*'! 
PUPp^P 
n Cl p 0:5 3 

p l. ■' C'*'b 
C'.POCb 
PC DC-./ 

01 'u'-.',* 


SUbHOUTlivE SUPREK 

. THIS RdUIIHE fRnuUCES ThE SUBSTRATa REFERENCE DATA REPORT 
»♦* storage 

CnovON /FILPuF/ FILFNM(?)»lC-iTRY,lHEGN,lZONE»lSTRTA 

♦ , . IStJSTA»ICASE,KXStC 

♦, R3uF(t25) 

UlMFNSlCiN KK'r-i(a) ,IHI0Pn(9) ♦IPR0AT(l<n,PHDATE(6J,XEPW(R)tXEYL0(6) 

♦ , AP'PALC?! 

♦, PCERPCluOl 

REAL |■.CREF,•■;ChRH 
JlMrUFR filer IiPROaTE 


tf3UIvALEf.CE 
♦ , CKi'ljEC?) 
(Kf'L.F( 3 ) , 
(Kf'L-E ('0 • 
(hOl.'f (s) , 
(^R|JF (6) , 
(APuE C7) . 

( p (■' 1 1 f ( H ; , 
(I'Piir (9) , 

( aM'.iT U l) 
(Atllf (1 1) 
(.p-PitE (17) 
(ARijF.CPl) 
(KHilE (?9) 
(pRiiF (?b) 
(pBuE (?7) 


, 

*• 

♦, 

» t 

♦ f 

♦ * 

* f 

♦ » 


(3bUF(n *msfg,rt,k!*,in(1)) 

I 1H''ij,'.SIPAT,NKEGS) 
X'IF-,MZTlT) 

A R’ t A , 1 i b V ) 

XTI 'A ,RrO) 

Nf IBIOhOCD) 

iiA ) 

X''l?.0 

XC/?J 

,XfP .I.IPRDAT(n) 

,RiiiATt(n) 

fX-tP^'Cl)) 

.XtYLOcl)) ■ ■ 

,AKyAL(l),HCHEF) 

♦ '■Cl- icRcD) 
f X rvLO) 


CCHf'Uf, /PR.vTll)/ lHTRY .RFBIO.'J, ZONE, STRATA, 1CA5EN 

♦ , FI'LtNCi.FlL.SAMCi) 

♦ , ITUTYP,RA‘'FI''r 

I'«TEC>ER CNTRYfHr'ojOS,ZOfftiSTRATA,FILENO,FrLHAN 

COHPoX /SUBVaL/ HiiAfT’vA,RSUBGP(3),;,SbGGP(2),XlN8S 
», A51.»0SfXlNCV,XSlMCV 


LOCAL sTUPAGE 

DIMENSION SVaUU? ♦ZVALCII ) ’RVALU n rCVALdT) 

♦ , XSNCvS(?) ,NSt)r,PS(3) ,nSGGPS(2) ,NSBGPZ(5) ,NSGGPZ(2) 

Y, ;..Si(f;pR( 3) ♦r,SGGHR(2) f!.ShGPC(3) ,u5GGPr (2) 

tool YALE NCt 

» (.SV Al( 1 ) fH.'AS) « (SVAI (2) f TY.AS) ♦ ( S V AL ( 3) , X INBSS) 

»♦ (.SVALfN) fXIMCVi)) fCSVALCS) * XSHCy S ( 1 ) ) 

♦ , (SVAlC 7 ),NSB'jPS( 1 )), (SVAL(IO) fNSOGPStU) 

♦t C/YAi.( 1) ♦U.-iA^^l , (/.VAI, (2) .T-A/) , CZVAL(i) ♦XINOSZ) 

*t CZvA|"(m) ♦XsYhPZ) I CZVALCS) •xt.'jCvZ) ♦ (Zyal(o) »XS«CV 2 ) 

*♦ C/V AL( /) ,r;-,i«I.PZ( I ) ) , ( Z > AL ( 1 0 ) ♦ .'.Si.GPZ ( I) ) 


5UBREF 

SUIIREF 

SUbREF 

SObREF 

SUuPtF 

SUbPtF 

FILPUF 

HOOP 

hODF 

FILEUF 

hlpuf 

FILPUF 

KPQF 

FILSUF 

nc-uF 

riLMUF 

FILBuF 

FILPuF 

hnoF 

hOL'F. 

MObF 

hCuF 

p.roF 

hODF 

HP OF 

KObF 

Mf'i.F 

MGuF 

HODF 

HCIDF 

MODF 

HPDF 

MfUF 

SI.UR'EF 

PRnTIO 

PPnTIO 

PRNTID 

PPnTIO 

HOlF 

Sl’bPEF 

suuvaL 

SI’BYaL 

SCbPEF 

SLbRbF 

S'Jb“tF 

Sl'bRbF 

SUBRbF 

SUBREF 

SThRLF 

bl BRLF 

StibRtF 

Sl'BPtF 

SlibRt F 

Si'b'ftF 

SI'i’/^LF 

SUr.RtF 

5! dRfF 

bl'b'n.E 


I 4 


: (_ 

■ »i 

1 < 

I 

. I 

’ f 

! 

t 

: i 

I 

; C 
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00OO59 


♦t C9VA|.(1) » (KVAt(2) »IWA9)» 

CRVALlAltXIKbSP) 

SUhREF 

00(10^0 


*f (PVA!.{A),XSfUvSK}t (KVAL(S)fXI,NCVH)f (RVAL(6) f XSMCVK) 

SUbREF 

OOfjOAl 


*r («vALn)f'iSBGPk(l)), CHVAUa'i)» 

nSGGPP(1)> 

siibref 

OOOOhd 

C 

- 


SUbP&F 

0 1 ’ n c f i 


»» (C>AL(l)*HoAC)t (CVA! (2,J »1W7G) » 

(CVAL(3) fXlNUSC) 

subplf 

OUTOfiU; 


♦ f (Cv/i|.(u) tXS'-'pSC) » (CVALtS^-TXIoCva-, CCVAL(e) »XSMCVC) 

S'IERlF 

ovnoh'3 


*t (CV4L(?) .‘isrioPCCn ) t (CvAL(lO)f 

.MSGGPCll)) 

S1'I)PeF 

OOOOt’h 


DATA AHtAPS /Iu2a9.7ip/ 


SL’BHEF 

nuPo‘'7 


IH =1 


SUbREF 

Ouoo'-O 


KSbSTA = fi ' 


suopef 

D.J^V69 


J,= » 


SI'hREF 

Cu0(j7y 

C 



Sr-iDEF 

D'.J n 0 7 1 


DO 20 r = Itll 


SUbREF 

0 j V,!7^ 


SVAl U) = 0 


SOtiREf 

''vonJi 


ZVAl.(I) = 0 


SPHReF 

0 V!‘I|7U 


HVALtI) =0 


SUbREF 

'V, 


20 CVAL(I) = O' 


SI href 

oino7i) 

c 



SI P.PEF 

OoT.’'? f 

c 

get HEAOtP PECORQ INFO. 

. 

SbbPEF 

ncric<7f' 

c 



sdopef 

no')('79 


CALL FlLSfefJ(IH) 

oa 

hsri 

slgref 

r C' 9 '^7' 'j 

c 


Siib°EF 



ICASLf = ILASt 


S'lhPEP 

0 0 0(,m‘-2 


IH = 0 


siH'Ref 

nooO'Pi 

c 

get DEIAIL RLCURD 

O M 

Sl'bPEF 

O') f. li 1' o 




SUbREF 

7 1; f 0 >’ ‘j 


50 CALL FlLbFG(lH) 


SUbREF 

0'jnc«6 


IF C1>^.LI .0) GO TO 20£) 


suorff 

n 1,0 (.1(1 7 


kSh.STA = KbO<jTA + l 

s> 

SI hRj-F 

(1'jrcipa' 

c 


PS 

subref 

no‘^C?9 


IF (KSbSTA.GT.I) GO TO JOO 

a ® 

SUiJPEF 

0ut)CrO/j 

■■■e' 



SUBPeF 

noiHol 


CNTHY s IC:»TRY 

SUbREF 

Olin'.Ot' 


kFUTON s DiEGN 


• SI'HPEF 

oc'fi.7'5 3 


ZOi.F = UDnF 


SLoReF 

0 (j 0 3 0 4 


SThaTA = ISTkTJ 


SiJbPEF 

o:ir.3P[) 

c 

, 


SU’bPEF 

OuOO'’o 


GO TO i20 


SUBRlF 

0 (, 0 0 9 7 

c 



SUbPEF 

n 11 0 0 ij 

c 

TEST FOP CHAfJOt IM IDENTIFICATION AREA 


SUliPtF 


c 



S'-BPeF 

n 0 0 I n 0 


100 IF (IStPTa.GT. STRATA) GO TO 200 


SUbPEF 

n (. ft 1 n 1 


IF (I7oNL.GT.ZOVL) GO TO 2oO 


SUBREF 

000!‘T2 


IF (IPfcGN.GT.REGHOf.) GO TO 200 


SUBREF 

f p n 1 lA 3 

c 



subref 

PiiClipy 


120 XNa = tiA 


SI bref 

ftOOlftS 


Xv = A' 


subref 

n V r, 1 P l) 


XP = AkFA/{XmA*A,.;FaPS) , 


SI'BRLF 

ncoip? 


XLH = XL'-»XK*ARtAl S 


subref 

PCOlfitt 

c 

. 


SI'BREF 

0(jCia9 


HPAK = Xf.R4XHR'i 


HPU 3 

n ? " 1 j 0 


hV'AS = GaAS + HwAK 


subref 

nor. Ill 

c 



subref 

ftvnna 


TWAX c X jPfXTP’f 


P,UU3 

nuoi 1 3 


TWAG = T.iAS-fT''A'< 


subref 

0 u n 1 1 4 

c 


- 

SUbPCF 

ft,ur, 1 1 'j 


rjSt)GPG( lGPi;(S) = l(GDGPS(IGPNO)fl 


subref 

n (' '1 1! h 


IF ClnFVO.LT. 3) GAugPS(IGP:mO) = NSGr.PSUGPNO)A!.|StG 

subref 

C'lP 1 1 / 

c 


• 

Sl-UPl F 

r i-o i 1 )i 


XlN'iSS = XUTP'ftifl.>Ais + XlGnSS 


suuref 


1 


I 

I 


■i 
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0001 19 

xTNCVS c (xCV?.*T>.A 65 »»2tXlNCvS 


SUBREP 

r 

000120 

XS(<CV ~ TnAK“H 6 AK 


SUBP.EF 


000121 

xSMrvs(i) = xsmcvs(j)+xsmcv *»2 


SHHPfcF 


00 O |22 

XS. 0 CVSC 2 ) = >s,'ir.ys( 2 )+xs.icv 

. 

St'bRtE 

\ 

000123 

'■C ' • 


St'dREF 


n( 0 i?i. 

J = J +1 


SI'bRtF 


000 12 'J 

c 


SIIKREP 

k 

p 

0 C 0 1 2 b 

GO TO 50 


subree 


0UO127 

c 


subree 


pooipa 

C change IfM I.D. area 


SI'hREE 

) 

OV0129 

c 


SbdREP 


oO'H30 

200 hnx = h'.'AS 


SI'pREF 


000131 

1«A = T^AS 


SI'bREF 

) 

ruj'’ t ;32 

Xl.'JHb = XI1.3SS/HWA 


siiijreF 


nof>ij-^3 

XSl-'bS = (T'XA-h’ 6 A.)/HWA 


suhref 


|■' 0 ^ i ‘ 71 

Xj-C‘v = bf.'RT(XlNCV3)/THA 


SUbREF 

\ 

0 0 r 1 3 j 

xsr'cv = 0.0 


l-inoF 


0 0 0 i ^ 0 

IF((x5.-,rV?(2)*»2/J - XSKCVS(l)) , 6 T. O.JGO 

TO 205 



00< 137 

IE tJ.lJ.?) GO TU 20b 


mcdf 

n; 

0 00 1 30 

C = J 




0011 ?9 

X'=I'‘CV = S.lRT(C/CC-n*(ySRCVS(n-l ,/C*XSMCVS( 2 )!M 2 n/ThA 



OOOUjO 

205 cOMl'.'UE 


finoE * 

P: 

0 0 0 1 0 1 

c 


SUBREP 

' ' 

0 tni?j 2 

bn 210 T 1,3 


Sl'HR'EP 

»'■ ■ . 

<'00 105 

IE CI.E'-'.!) GO TO 210 


SUBREP 


-'’00 104 

NStGGP(I) = bSGGRSCI) 


SUbREP 


0 0 0 1 0 b 

210 KRUHGP(I) = J.SbGPSCl) 


SI’riREP 


Oo r. IbO : 

. . ■ C 


SUrREF 

tiy 

oooli:/ 

C CALL RL'’i<Ti V!TH IT 0 IYP=V FOR STRATA PRlf^T 


subref 


0 O f 1 3- 8 

'C 


SUIvRKF 

li 

0 tin 109 

ITUTYP s J * 


SUbRtF 


oo<^ 1 <^0 , : 

CALL RePRTI • ■ 


S 1 iB°eE 


nof'i?l 

XT:.53 = XTtvIJS^riWA 


11003 


01 0 1 £.2 

. XEI’U.F = y«Sl 68 SAHWA 

y 

■ Mr.o3 


fUiOjitj 

XIi>CV = X]i>.CV<*T>')A 


nCD3 


coo ism 

xsii'cv = xsio;cv»Twa 


EiOD3 


0 0 0 13b 

c 


SHbREP 


0 L' 0 1 b b 

C SAVE SIPaTa VaLL'CS IN 'zONF ACCUMULATORS 


SUBREP 


0MO1S7 

C 

Q : . 

hrl '-i 

SUBREP 


0 1 , r, 1 b a 

H'«A7 = HaA^ + ORA 

-f J 

SUbHEF 


CCO lb9 

1<-.a7 = T.'AZ + TNA 


SUS“EP 


COO-KjC 

XI3Rb7 = Xl‘i(,SZ + xI‘.'PS 

St- 

SUBREP 

: i 

PuniM 

XS.-.KS7 = XS'Hl3Z + ASntJS 


SI'BREP 


000162 

xr-cv7 = xr'cvz*xTfjCv 


SUBREP 


0 U 0 1 n i 

xsi-icvz = ysncvz+xsiMcv 


SUBREP 


oOPibO 

c 


SUQREF 

3 

00013b 

on .220 I = 1,3 

Bp 

SUb^eF 


000166 

IF (l.t'3.3) GO TO 220 


SUBREP 


00 0 167 

6SGr,p7(I) = kSGGPZCD+NSEGGPCI) 

. 

■*? 

SUBREP 

3 

0001 6 b 

220 bSDGPZd) = :iSbGPZ(I)+(v5UPGP(I) 

* a3 

SI'BREF 


010169 

C 


SUBRItP 


(H 0 1 7 C 

C ZERO 'H=T .S 7 I aTA aCC'IiUIlATOR VALUES 


SUbRtF 

3 

oton 1 

C 


SUBREP 

-j 

00 0,172 

W' 230 I = 1,11 


SUb-REF 


000173 

230 SVAL(I) =0 


SUBREP 


nC-'’179 

J = l< 


SUbREF 


01 01 7b 

IE nH.FU.O) strata = 15TRTA 


SUBPEF 


o V 0 1 7 o 

c 


SUBRp F 

u/ 

-i . P7 

C RESET STRATA T.f'. 


siiBLf.r 

\ : 

•;<.<<1 M 

, C 


SUb'it F 


f 




i < 



i 





f 


i 


* 


I 



1 

f 

I 

\ 

I 


i 


1 
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1 




r-> 


© t 


g? 


o 

© 

i:i' ■ 

N* 

[ii ■ 

h 

IT 

!':■ 

b 

'O 

0 

1 

p 

h 

© 

; ** 

m 

i, 

b 

|T ■ 

&' 

0 

I 

■o 

o 


000179 
0 001 00 
000101 
otjoios 
OOII »i 
000104 
000 I ”b 
0001^*6 
000107 
0 (J 0|1 0 d 
000jlO9 

0 0 '1 1 90 

000191 
0 0 0,194 
OOO’lOJ 
000194 
000195 
OOOlojj 

000197, 
00019(5 , 
OUO 19V 
OOC'^f U 
00O4CI 
0o0c04 
0 0 0.^03 
oori,?o4 
OOfioOb 
0 0 0-apo 
00 0^0 7 
nooaott 
0 0 02,09 
O002i.0 
090211 
000212 
000213 
000219 
000215 
000216 
000217 
OOf|2td 
000219 
000220 
0011221 
00rj222 
00d?23 
000220 
000225 
000225 
000227 
0.00 220 
000229 
0u023i) 
0002,31 
000232 
000233 
00023‘t 
000235 
000236 
0 00 23 7 
0 01)2 5 H 


C, 

C TEST POR CHANHE IN ZONE X,D, OR ENO-OF-FILE 
C 

IF (IH.LT.0) go to 240 
C ' 

!'■ azo'-t.GT.ZON'E) GO TP 240 
IF (IRtGfl.tQ.REGIOii) GO TO 120 
C . 

240 HWA = Hl-^AZ : [ : :|: : - ■ ’ 

ItvA = T'^AZ 
XIN'IS = XTlv?SZ/Hjr,A 
XSMtlS = XGMbSZ/H'lA 
XtXCV s Xl/vCvZ/TwA 
XSX <CV = XS'^CV2/TrtA 

c ^ 

on 250 I = 1 f 3 
IF (i.FR.3)' GO TO 250 
I.itC-GP(I) = NSGGPZCI) 

250 NSueGP(T) = MSBGPZU) 

C ,'■ 

C CALL PEFPTl tfllH ITi01YP=2 FOR ZONE PRINT 
C 

I-TUTYP S 2 
CTLl REPliTl 
C 

C SAVE ZOl t VALUES IN REGION ACCUHULATORS 
C 

HNAP = HaaK+HWA 
TAAP = 1i,AK + T>''A 

XluPSP = XIN'jSct ♦ ;XINP,SZ 

■ XS.IBSP s XS.’-'riSR ♦iiXSNflSZ 

Xl iCvi; = XIMCVR ♦ XINCVZ^ 

XSICVH = XSMCVR ♦ XSmcVZ 

c ;|: i 

on 260 I rl,3 - -~ 

IP a.Fir.3) GO TO 260 
|.S.;0PR(I) = .NSGGPRdl+iiSEGGPdJ 
260 NSoGPKCl) = MStiGPR(I)•^^SUBGP(l) 

C 

C ZENO 01 T ZONE ACCOMIJLATOM VALUES 

c 

DO 270 I a lill 
270 ZVALCI) = 0 
C 

C RESET Zn.-.E 1.0. ‘ 

C 

IF (IP.FO.O) ZONE a IZONE 
C 

C TEST FOR CHANGE IN REGION ID OR ENO-OF-FlLE 
C 

IF (IH.LT.U) GO TO 2ti0 

C 

IF {IReGN.LO. region) go TO 120 

c 

280 hN A = hNAR 
TI'A = T'^AR 
XllOiS a XtN‘H5R/H.,A 
XSlf-!5,S = XbPBSR/HAA 

xt:.r5^ = xrf,cv9/T."A 
xM‘'Cv = :>y''LV» 5 /i,wA 


SUBREF 

SUBREF 

SOBREF 

SI'HWEF 

SHLs-HEF 

S0B9EF 

SUBREF 

SUBREF 

Sl'BREF 

SUBREF 

hOD3 

H0U3 

rtOU3 

NOB 3 

SUBREF 

SI-IjReF 

SUBREF 

SOURCF 

SUbREF 

Sl'BREF 

SUbREF 

SI bREF 

SUBREF 

SUbREF 

SURREF 

SUBREF 

S'.'bREF 

S 1. ri R E F 

SUL'REF 

MO03 

H0D3 

H0D3 

HOB 3 

SUBREF 

SUBREF 

SUbREF 

S tj B R E F 

SUBREF 

suhref 

SUbREF 

SUbREF 

SUBREF 

SUBREF 

SUbREF 

SUBREF 

SUBREF 

SUURtF 

SUbREF 

SUbREF 

SUBREF 

Sl'bRf.F 

SI’BRPF 

SUBREF 

SUBREF 

SUBREF 

Sl'BRtF 

l'im;3 

t'.00 3 

HO 1)3 

HOBS 



I 


) j 
I 


I 

1 

I 

I 

I 
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■* 

000239 ' 

c ■ ■ ■ ■ 

f 

00.9200 

on 290 I 3- lf3 


noio20i 

IF (I.eP. 3 ) go to 290 


000 202 

USEr(;R(I) = riSGGRRd) 


RUOiROi 

200 r.'SURGPd) = MSbC-Hfill) 


nunE'ii 

c 


no 02 os 

C CALL REPRTi WITH I70TYP=3 FOR REGION PRINT 

) 

nco?('6 

C 


oiin2'i7 

nuTYP = 3 


(!!i02“8 

CALL PePRTI 


0b«2RV 

C ■ 

L 

00O2S0 

C SAVE REGIU^J VILUeS IN COUNTRY ACCUMULATORS 


t'C02'->i 

C 

? 

0 on 25 2 

HUAC = JC + HWA 


000253 

T'AC 3 Tv.«C+r*'A 

f 1 J 

0OCB5R 

AII.66 C = ‘XI-^bSC ♦ XiNnSR 

0 ■ 

•1in2'=S 

XPU'^SC = iSRuSC t XSmRSR 


0 00256 

XJl'EVC = >IUCVC ♦ XibCVR 

k-'- 

PO-1'25 7 

XSr.CVC ~ XS.'^CVC ♦ xShCVR 


roo2Pd 

■ C ' 

r 

000259 

UO 300 I r 1,3 


ouo2*-o 

IF (1.60.3) GO TO 300 


0002H 

uSGGPC(l) = ■>'3l.r.UC(I)4USL'GGP(l) 


000252 : 

300 NSbGPC(I) = t,SUGRC(I;) + NsUBGP(I) 

1: 

000263 

■■ ,c . * 

b 

f'0(i26R 

C ZERO OUT RtfiiON aCCUi-IUL AT flH VALUES 

i' 

0 0 0,26 6 

c ■ ■ • 

L 

009266 

DO 310 I = 1,11 

P 

0 0 0:26/ I:: 

310 oVALd) 4 /) 

r j 

9 0 026 B • : : 

.,C ■ . 

k 

000269 

C TEST FOR EuO-CF-f ILE OR ReSeT REGION 1,0. 


009270 

: C ■ ' ■ ' ■; 

i;. > 

E: 1 

00 0271 

If (1H.L1 .0) GO TO 320 


009272 

C 

p 

C 0 012 7 3 

UFGIUU B IREGU 

« 1 

000279 

GO TO i2f ■ 


000275 

'■ 'C 

p 

C-0027O 

C move country VAlUFS TO PRINT AREA 

!■ 

009277 

■ c . 


0C027B. 

320 HUA = hRAC 

b 

000279 

T'-iA = TUAC 

P ■ 

OCO2P0 

XT ups = XIMBSC/HaA 


000261 

XSIi'US 3 XSM8SC/HWA 

b 

000262 

XIHCV = XINCVC/TWA 

'e 

000263 

XSI^CV = ySMCVC/T-iA 

„ 

000269 

C 

p 

000265 

UO 330 I = 1,3 

1 1 

0 0 026-6 

IF (I.eC. 3 ) go to 330 

'fi 

000267 

NSEGGP(I) = NSGGUC(I) 

p 

000268 

330 NSU'jOP(I) = mSBGRCCI) 


000269 

C ■ 


OOP 200 

C CALL PEPKTi rtITH II0IYR=9 FOR COUNTRY PRINT 

O 

000291 

C 

■ • 1. 

0 0 0 2 2 

ITUTYP =9 


Ouogoi 

CALL RUPRTI 

o 

0UO269 

C' ■ ■ ■ 


OliOROS 

Rf TllHN 


000206 

'■ C 


Oul',*')/ 

t BU 




f-' ' k . 


S£ 




subref 

suuref 

SUUPEF 

Si'BREF 

Sl'!i''»bF 

Sl’tiRtF 

SI'BRP.F 

Sl'dREF 

SUdREF 

SUbPEF 

SI.'bPtF 

S'ibREF 

SUc»EF 

SUbRLF 

Si'dREF 

Mf>C? 

HPD3 

NOD^ 

MOO'5 

SI'oREF 

SliriREF 

SI fj'JfcF 

SUiiREF 

SUUREF 

subref 

Sl'UliLF 

Sl'bREF 

SI'BReF 

SMiiHF 

SUl'REF 

suuref 

siibPEF 

SI'HPEF : 

sib ref 

Sl'bREF 

suuref 

SUURCF 

SlifcRtF 

subref 

SUbREF 

SIIBRLF 

HOL'3 

MODS 

BOU3 

MODS 

subref 

Sl'bREF 

subref 

subref 

Subref 

subref 

subref 

suuref 

SUeREF 

subref 
suuref 
SU bRLF 
Si'URf F 

suuref 



{ 


' I 

I ' 






00 -nH- 8 Z 09 -K^ 8 Z 


w 


t 

1 

• tu , 

YL0£KR»1.760513t 61010 « 1 ^ ' 

: 


OOOOOl 


SUBROI'TINE YUOERR 

YLOFRR 


n0P002 

C 


ylderr 

\ 

OOOuOJ 

C 

♦ ♦♦ routine PRonuCF-S the population yield error REPORT(d) 

yloerr 


ooooru 

C 


YlDERR 


ooonos 

c 


YLOERR 


000006 : 

c 

♦♦♦ COMNON storage 

YlDERR 

■■ ! 

, ■/ ■ 

000007 

c 


Yl OE rR 

' 1 . 

ooooou 


COMN.CN /CARDIN/»PTyPE,AUNIT3iPaRmTR(5) 

CARDIN 


OUOO09 


♦, lCASIN(S)»LEVELtJPARMtIERR 

CARDIN 

I' 

coocio 


INTEGER HPTYPfefAUNITSfPARMTR 

CAkDlN 

'■ 'T' ■ 

oonoii 

'C 


Yl OF rR 


0 000,1 2 


COH'^ONi /Range / START, lNTVH»BREAKltINTVL2*8REAR2 

RANGE 


000013 


lNrVt3fST0P 

RAliGE 

• ' 

n 0 0 0 1 0 

c 


RANGE 

i 

ouooils 


Rrii lRTyLltlNTVL2,lNTVu3 

kamce 

[■ 

000016 

c 


yloerr 

k- 

Ou0017 


CO IRON /FILBUE/ FIlENM(?) ,1CnTRY, lHEGNfl20NE*lSTRTA 

filquf 

0000 10 


♦, lS03TA,TtASE,MAS£G 

ROOF 


00001 9 


♦, KHuF(125) 

MDl)F 

\ 

OLOCPO 

c 


FILPgF 

ooco?i 


OIHEI.SIQN KRP'I'O 'IBIOHOIA) tIPRnATO«)tPRDATE(6)TXEPrt(«)»XEYLD(6) 

FlLBLlF 


00'''0?2 


♦t APVAL(21 

FimuF 

: i" 

OOOOP3 


♦, * KCEHS(IOO) 

MDOF 

5 

OC002'4 

c 


filbuf 


0 0!)0?b 


REAL MCRFFtMCLRH • 

Hr OF 


0 u 0 0 iO 6 


1 ITEUFR FlLEiv'if9HDATE 

FIL3UF 

> 

f 1 U 0 G ? 7 

c 


FIl 0UF 


00CCP6 


t'l'jIVALENCt (KtiUFU) »N5 fO»nTtKwIN{D) 

filruf 

It •- 

0 0 0 0 ? 9 


•, (r P|jF(2) . iGPNUfNSTRATTNHEGS) 

NFUF 

0UO070 


♦ » (RFUF(3) *XHP>r,N2TUTJ 

HOOF' 

1 

000031 


♦ , (Kf-UF(O) ,ARtA,:ib5) 

HOOF 

> 

000032 


♦ t (RHuF C5) »XTPwtNPD ' - 

hoof 

00 0 1) 3 3 


♦ f (A(>i'Fl6),N»lR10.jfl(in . 

HOuF 

^ i 
r ■ 

n 0 0 03 <4 , 


♦ , (KBliF CT) ?i.A) 

HOOF 


000035 


♦ , (K9uF(P),XBTP>x) 

HOOF 

» 

0000'*6 


♦ , (KRtjF (P) «XCV2) • 

HOOF 


O0O037 


♦ , (KBuF'Uu) ,XiP.,T,IPR0aT(1)) 

HOOF 


"00033 


♦ , (aRIjF CM) ,PKOATt(l)) 

tiOoF 

000 039 


♦ , r<HLiF(i7),xtp.-(n)) 

MDuF 


nootJi;-j 


■ *» (iv»uF (21) iXLYLOUn 

hoof 

i il 

OOOOOl 


♦ f (M.1UFC241 ,APVAUn ,MCREF) ; ' 

MODF 

> 

000002 


♦ , (MMjFcP'j) ,6CEHW(1)) 

HOOF 


000003 


♦ , (l'PuF(27),XrYL0) 

HOOF 


OOOO'JU 

c 


YLDERR 

> 

000005 


COMMON /PRr,TlO/ CNIRy, region, ZONE, STRATAtlCASEN 

PRIITID 


OOQOOO 


*, FlLENOfFILNAMta) 

PRl.TlD 


000 007 


♦ , 170TYP,*JAMFMT 

PKnTIO 

? 

000008 

c 


PPhTlD 

t ■ 

h 

000009 


INTEGER CMTRY,'REGtOV, ZONE, STRATA, FILEHOfFlLNAM 

hOoF 

1; 

nOOO'=o 

c 


Yl OFRR 

}>' 

A00051 


cGfA'UR /HSIOGH/ XRVAL,STUntY,XNPSUt',SOPSU'i 

HS10G“ 


AU00S2 


♦, NRANGF , TRANGt(51) »NT0TLtfiANG£S{52) 

HSTOCH 

!'■ ' 

00ioo';3 


♦, HlNVAL,HAXVALtUAlPRDC3)»NZKNG,REF 

hstogh 

k 

OO'COSO 

c 


HSTOGM 

i ■ 

CP "065 


RFaL MInVaL,MAXVAL 

hSTOC.R 


o'jr.c*>6 


rmGFR DAiRRo • 

hSTOl.1 


"OAU'W 

c 


YUEhR 


Oulili’..! 


CC’n"UM /PRICT'./ Nl-'AGI..,.'JLlNLS,MAXLlNfH0UT,HtA0r.K(16) 

PRTCTl. 






\ ^ 

I . 

I 

' 


I 

\ 
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000059 
000,060 
000|06l 
000062 
0U0(;63 
00006“ 
OOOfjiSb 
000066 
1^0006 7 
0 0 0 0 6 a . 
00 01.69 
O'jivoTO 
0 0 0 07 i 


nocloo 
nor, 10 1 

OOP in^ 

0 0 01 0 i 
000104 

0001 Ob 
oOOlt'o 
00 n 1 07 
000108 
noo 1 09 
Ot' O I t o 
01/0 11 1 
OOOl 12 
000113 

oiion 0 

oyo 1 1 b 
OOOl ! 6 

'‘ton? 
Ot r no 


integer HEADEP 

COMMON /SFLCTN/ Bl0N0f<l)*WPRTT<^)»IPRD{3tl«) 

JNTFGER blUNDtftPRTy 
COHMUN /.MATCH 1/ MATCH 

COMMOM /HEADmC./ KEAONr.CSbOO) 

UIHENSIPN CUE6'Aaoo)*rLEPRO(ieO)fCLATECaOO)»CLPTECa0O) 
*♦ ClATMC(U'0),CLPTK.C(lyO) 


EGUIVAlEMCE 


(REAONGIbOOlJtCLEWACl)) 


PPTCTl. 

YLDERR 

SELCTN 

S6LCTN 

SELCTN 

YLDERR 

MODE 

MODE 

mode 

mode 

MODE 

MODE 


0 

000072 


4f (RFADRG(b‘10n iCLEPRO(O)* 

(RtADNG(520l)fCLATECU)) 

mddf 

; f 


000073 


*. (RFADRC(biOn*CLPIEC(n). 

(PEAONG(b«0l).CLATWCU)) 

mddf 



r,voo74 


*f (HLAOMClbbODfCLPfRcn)! 


MGDF 

* ‘J 

<i> 

ni:ni;73 

c 

■ 

! 

YIDERR 



01/0076 

c 

LOCAL storage 


Yl.UEKR 

1 


000077 

c 


. 

YLDERR 



0o0078 


DATA ApEaPS /102B9.712/ 


YIDERR 

; 


000079 

c 



YIOERR 



ra00f.y 


JMIN =0 


YlDF.RR 


0 

000061 


JPRD = 0 


tiderr 

• ‘ 


0 0 Co 0 2 

c 



YlDEhR 

1 “ 

i. 

000083 

c 

**a PROCESS E*CR BlO-wlNDOWS FIRST 


YLDERR 

f 

0 

0 U 0 0 6 4 

c 



Yl DERR 

' ( 

!• 

0 0,0 0 p b 


10 IH = 1 


M(’0F2 

! 


TOP OF 6 


IF ( JWIN .LT. 0 ) GO TO 30 


M0DF2 

1 

p 

OOP 08 r 

c 



YLDERR 

i t 


our, 0 8. 7 


15 J'>IN a J.'lw+l 


YLDERR 


' i 

OOO0F9 


IF (J.'lN.GT./t) GO TO ?0 


fLDEHR 

• ' 

p 

nocoOu 


IF (bIO'‘U(JRIi'l).ME.O) GO TO 50 


YLDERR 

1 , 

I 1 


00 0001 


GO TD i5 


YIDERR 

1 


0u0092 

c 



■■ yLdfkr 

J 

© 

0OOQ93 


20 JMpi c -1 


YLDERR 

1 < 


0O0C‘”« 


30 JPHO a JRRD+1 


YLDERR 



OYJOURb 

c 



YLDEKR 


o 

o;cro96: 


IF (v'PRn.nT.l'U GO To 500 


YLDERR 



000097 , 


IF (IPRDd.jpRoi.EU.O) GO TO 500 


rl DERR 



00 0098 

c 



YLdErR 

j 

o 

000009 

c 



YIDERR 

, ^ 


50 DO 60 1 = 1*500 
60 REAONG{I) = 0.0 

J s 0 
KXS = 0 
nTuTU s 0 

DO 70 I a l*sl 
70 IRANGEd) a 0 
RKESlA a 0.0 
LLLSIA = 0.0 
OELfcKK = 0.0 
LELSa = 0,0 
RFF = 0.0 
Hli.VM a 1 .no 
f.fWAl. : -l.ElO 
IE ( IH .fc-^. 0 ) GO TU 80 

bt I K aI'LR I'l-TURU 


YLDERR 

Yl DERP 

YLDERR 

Yl DERR 

YLDERR 

Yl DERR 

YLDERR 

YLDERR 

Yl.OFRR 

MtlDF? 

hODEa 

MPCE2 

MDUF2 

M00F2 


M00F2 
YLDERH 
Yl DERR 
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000119 

0001 ?U 

nooi?i 
0 0:6 1 
0001 S3 
00 01 24 

ooo 125 
000 126 
000127 
OOo 1 2 o 
000129 
000130 
OOOlM 
000132 
000133 

0 0 0 1 .3 4 

nC'Oi lb 
ooni 3 b 
000137 

oo:oi3» 
000139 
OCiO 1 uo 
OOf Ibl 
0 !f 0 U 2 
000103 

no 0 1 0 « 

0001 Ob 
000106 
OuO l 0 7 
0 y i3 1 'I B: 
''0 0.14 9 
COOi'jO 
060 10 I 
o^ri'> 2 . 
0 1' 0 I *• i 
0 0 0 1 b 0 
OOOl'Sb 
OOOlbo 
0001S7 

0 y 0 1 "3 H 
ooo 1*^9 
P 00160 
000161 
000162 
n 0 0 1 f .3 

000 1 m 
nooibb 

00016b 

ogoif .7 

oonibB 

000169 

oyono 
006171 
opni 72 
000173 
000174 

000 1 7 b 
ri'O l 76 
0.10177 
!',y (! 1 7 11 


CALL FILSEB(IH) 

IF (IERR.NE.0) go to 500 ' 

ICASEM = ICASE 
EILKAr(l) = FILENMU) 

EILNAM(P) = HLErJi"(2) 

6 4r1FnT = 0 

IH = 0 

GET detail records 

80 CALL FlLbEGlIH) 

IF (IH.LT.OD GO TO 200 

IF { KxS .GT. 0 ) GO TO 100 
IFCMATcH .to. -2)G0 TO 210 

C'-T^Y = ICi.TrV 
• REOIOm = IKEGN 
Z('\F = IZO;;E 

STKAlA = ‘iBT.RTa 

GO TO 120 

♦ ♦♦ TFST FpR CHAiifif IN ID AREA’ 

100 IF C ISTHTA ,NE. strata ) CO TO 200 
GO TO (Iys,ll0fl20)f level 

105 IF I IZORF .ME. ZO,\E .UR. IREGN ,NE. REGION ) GO TO 200 
GO TO l?0 

110 IF ( IKFGM ,;,E. htGIOr- ) GO TO 200 

120 X''iA = ijA 

X'-' =11 • . 

XR = APEA/(X9y>*AR£APS) 

XNR = x^»XR*A»EAPS 
IF (KXS.OT.O) GO To 180 
IF (Ji-'lN.Lf.Ol GO TO 150 

DO 130 I = 1,6 
IX = 6-( If!) 

IF (PRoftU (IX).EU.O) GO TO I 3 O 
lOATt = HHUATE(IX) 
on TG 180 
no tOMTlf-UE 


♦ PRtniCTlO?) PATt INPUT 

150 FLDA c lpR0(3tJ'’HD) 

LUO = IPROCatJRHO) 

LYH = IPROf l»JPilO) 

CALL LFRAaUiA,Lno,LYR,ALFGM,OAYS) 

ir,\lt = L'AYi- 
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0U0179 . 

c 


. . 

YLOERR 

© 

OOOIFO 



DO 16C I 5 1.6 

YLDFRR 


O'JOIFI 



IX = 6-a-l) 

YLDERR 


0 001S2 



IF(PHriftltaX) .EO, 0)G0 TO 160 


6 

OOOlfi 



IF (PPoATF(IX) .L£,IDATE) GO TO 160 

YLOERR 


0 C n 1 p y 


160 

tOMTP'UE 

YLOERR 


0011Kb 

c 



YLOERR 

0 

0001R6 

c 


nO date hatch 

YlOERR 

; 1 

OOfliH? 

c 



YLOERR 

' 1 

ooniod 



CALL PaGHDPC-21 

YLOERR 

© 

000 IP 9 - 



/IHITE (KOUr.6300) pPTYPE»JPAK!*»PARMTH{JPARM)»(IPRD(If JPR0)tlali3) VLDERR 


0t’0l*?0 

3/ C. 



YlOERR 


oooilol 



GO TO 3O , 

: YLOFRR 

o 

ooo'iog 

* c 



YlOERR 


000193 


180 

OELSTA = DELSTA+XTPW*XNP 

Yl DF rR 

'' ' ' 

0 0 Oi 1 o a 



KFFSTA = ReF3TA + X7PH*Xi'IR*XTYL0 

Yl DERR 

© 

OOflOb 



KXS = kXS+1- 

YlOERR 


000196 

c 



YLOERR 


000197 



GO TO bO 

Yl UF.RR 

o 

0 0 0 1 ° B : 

c 



YlOERR 


000199 

c 


chamge in id ahea 

Yl DERR 


000^00 

c 



yloehr 

() 

one ^01 


2OO 

IF { KxS .EO. 0 ) GO TO 210 

F00F2 


000202 



J= J+1 . 

1'01jF2 


0 00203 



PEAf;NG(J) = (XEYL0(IX)-XTYL0)*DEL8TA 

YLDERR 

h 

000219 

c 



YLOERR 


00020b 



MINVAI = AMIS.1 (HINVAL.HEADNGC J) ) 

YLl'FRR 


000206 



HAXVAL = AHAX! (HAXVAL.P.FADNG(J)) 

Yl l.-ERR 

o 

000207 

c 



YLOFRR 


00CH1B 



DFLEPil = r.’ELF.RP + KEADNGCJ) 

YLDERR 

[■' ■ • 

0 0020 9 



RrF = PEF+PEFSTA 

YLOERR 

0 

000210 



DELSO = DEL30+READLG(J)**2 • ■ 

YLDERR 


00021 1 

c 



YLDFRR 


no, ->2 12 


2l0 

COtiTlA'UE 

I-IOOFH 

o 

000213 



rtLGTA =0 

YlOERR 


0 0 0 2 1 « 



PEP ST A = 0 

YLOEkR 


OOO^jis 



KXS = 0 

YLOERR 

o 

0 0''2l0 



IK ( IH .LT. 0 ) GO TO 250 , 

M00F2 


060217 

c 



Y L 0 F i( R 

h|: ■ 

00 0 2 16 



GO TO (220,230.290). ItVtL 

YLOERR 

'b 

0002'‘> 

c 



YLOERR 


0 0;f>22<l 


220 

IF ( IzONE ,Mf . ZOisE ) GO TO 250 

MroF2 

h w 

001221 

c 



YLOFRR 


000222 


230 

IF (ipeGh.eo. Region) go to 8o 

YlOERR 


100223 . 



GO TO 2,50 

YlOERR 


000229 . 

c 



YlOERR 


nO'02?S 


2<l0 

IF aH.FU.O) GO TO 80 

ylderR 


noo2?0 

c 



YLOERR 

' 

000227 


250 

IF ( J ,E0. 0 ) GO TO flOO 

M0UF2 


00022B 



ntotl = j ' 

HC0F2 


001229 

c 



Yl 0^‘RR 


ni)02‘^0 



i:n 300 I = i.NTort 

YLOERR 


ot 12 U 



PCL’FHP = 0.0 

tiOOF2 

. ^ 

\i0iO'2T? 



IF C PtF .HE. (.0 ) PCOERR B 100,0»HFAONGn)/HfF 

K10F2 


- C 02233 , 

c 



YLOFRR 


0 0,02.39 x 



DO 2B0 K = l.NftAKGE 

ylderR 


0 0:<V3b 



IF fPrcERR.l'E.O) GO To ?60 

Yl OFSR 


00'’23o 

e 



YlCERH 


ft V 1% A F 



li’AKi.f (I.Z'HiC) 3 I9ANur(HZRNG) + l 

YIOEKR 





i;i' Til ..I'n) 

Yl DERR 


I> 


i 

I 


I 


t 


c 


!' 


2 8234 - 60 2 8- R U- 0 0 
Page 389 


T 


000239 
0 0 0.200 
ooii-iaiii 
C002U2 
0002U5 
00020O 

00 02 Ob 
000206 
0 J02C7 
luioj/' 1} 
odn'2u9 
OOO' 2 'jO 

noo2bi 
00025c; 
nyO^Si 
00025^1 
oyP2‘)S 
000256 
000257 
0002', !i 
000259 
000260 
0 u o 2 6 1 
000262 
OO0263 
000264 
000265 
(10 0 2 6 6 
OOO^f,? 

OOCc66 

000269 

000270 

000271 

('00272 

000273 

000279 
000275 
000276 
0 0 0 2 7 / 
0 0 0 276 
000279 
OOf'f'OO 
O0C2«.l 
000?«2 
llOOpOi 
0 h0224 
000265 
000206 
0 0 0287 
000286 
000289 


260 IF (PCoEKRtC.E.RANGtS(Ktl)) GO TO 2b0 


= IRA6GF(K)+1 


IRAMGF(K) 
GO To 3OO 

280 CONTINuR 
300 COMTIK'UE 


OATRHD(I) s JWI9 
IF IJvaf'.GI.O) TO TO 310 
CALL F7.l'LU(IOATe»OATPRO) 
310 cn7TI6*uE 


0.0 J KMVaL = lOO.O/(TJ*RtFJ*OELERR 


390 


TJ = MOTL 
X“V'AL = 0.0 
IF C 6eF .:iF. 
sTonEv = 0.0 

IF (DLLeRR»»2/TJ .GT. DELSQ)G0 to 390 

IF ( J ,GT. 1 .AnO. RFF .NE. 0,0 J STODEV » 100,0/REF* 
♦ S )ivT ( 1 .0/{TJ-1.0)*CnLL3;3-1.0/TJ»OELEKR•♦^) ) 
x;iPS'jF = Tj7x:!VAL 
-oPrSUC = ;iGFT(T,0 73T6DEV 


CALL KEPRT2 


aoo 


IF ( IH .FG. 

GC TO 10 
COivTr'uF 
IF ( J 2 IN ,LT 
CALL 'CAGhDH (-2) 
LRITE (KOI,(Tt63lO) 
IF C iH .EG. 0 ) 
GP TO 10 

CALL PaGHDH (-2) 
fyRlTE (KGUTi6300) 
IF C IH .F'J. 0 ) 
GO TO 10 


SOO KFTURM 

*♦» error f.FSFAGE 


0 ) GO TO 50 


U20 


0 ) GO TO 420 

RPTYPEt JPaRM*RAR;^7R(JPARM)*JWIN 

GO TO 50 


RPTYPE»JPARH*PAR;A1R(JPA«rt) fJWlN 
GO TO 50 


ylderr 

YLGERH 

yldehr 

YIDFRR 

YI.DE9R 

Yl.DFRR 

Yl DERR 

Yl uERR 

YLOFRR 

F0PF2 

M00F2 

Yl OFhR 

nr'|,'‘F2 

Yl I'FRR 

YLoFRR 

mC'lF2 

M00F2 

M0UF2 

P.0UF2 


6300 FnKF’AT 

♦ 

» 

6310 KOKPAT 

♦ 

* 

ERO 


(5«H 

l?li 

312) 

(63ri *** 
12H 

ID - 


Yl DERR 
Y L DErR 
YI.UEHR 
YLDERR 
F.nOF2 
Yl IFRR 
MPGF 2 
6CDF2 
MC'DF2 
HOOF 2 
MPDFa 
• M0DF2 
MniF2 
M0UF2 
I10DF2 
MPora 

mode 2 
ylderr 
ylderr 

YIDFRR 

YIDFRR 

TLCFRR 

INPUT PREDICTION date DOES NOT kaTCH DATE ON FILE/YI DF.RR 
RPTYPPc, I2»8ri PAHHTR(»Il»2H)3tXltl2N INPUT OATta* YLDEHR 

YLDFhR 

1,0 1,<F0PUATI0N for 310-KINOOw selected/ • ('0DF2 

KPTYPF=*I2«8H PARMTR(tIlt2H)s,Il,l2H ai0-WlNU0R=» K0DF2 

M00F2 

ylderr 


fnd cur 
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